commit 1bf03503b0e15addf20c4000d49727e585639284
Author: Yingjie Wang <wyj@wyjDeb.local>
Date:   Mon Feb 5 16:43:04 2024 -0500

    init

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..19c0884
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,4 @@
+.venv
+parfiles/
+*.csv
+*.log
diff --git a/.vscode/settings.json b/.vscode/settings.json
new file mode 100644
index 0000000..f328278
--- /dev/null
+++ b/.vscode/settings.json
@@ -0,0 +1,4 @@
+{
+	"editor.rulers": [80],
+	"editor.tabSize": 2
+}
\ No newline at end of file
diff --git a/Teuk_psi4.wl b/Teuk_psi4.wl
new file mode 100644
index 0000000..8b33b5b
--- /dev/null
+++ b/Teuk_psi4.wl
@@ -0,0 +1,189 @@
+(*
+  This script is used to get a analytical formula of \psi_4,
+  and save to a file.
+*)
+
+(*
+	Usage: Please set the fowllowing variables from outside as
+    command line arguments, like this:
+		  wolframscript -file Teuk_psi4.wl m a L n in|out [filename]
+    for example:
+      wolframscript -file Teuk_psi4.wl 0 1e-8 1 1 out
+    if filename is not given, it's "./psi4_analytical.txt" by default.
+*)
+
+(* variable name : description *)
+
+(* Begin of variables *)
+(* m : the Teukolsky multiple order *)
+(* a : wave amplitude *)
+(* L : wave width *)
+(* n : the order N in F formula *)
+(* End of variables *)
+
+
+(* Parsing arguments *)
+
+argv = Rest@$ScriptCommandLine;
+Check[
+  {m, a, L, n} = Interpreter["Number"]/@argv[[;;4]];
+  type = argv[[5]];
+  If[Length@argv >= 6,
+    filename = argv[[6]],
+    filename = "./psi4_analytical.txt"
+  ],
+  Print["Error: Check your command line arguments!"];Abort[]
+];
+
+(* Set Assumptions *)
+$Assumptions = aa > 0 && r > 0 && Pi > theta > 0 &&
+   2 Pi >= phi >= 0 && t ~Element~ Reals &&
+   x ~Element~ Reals && y ~Element~ Reals && z ~Element~ Reals;
+(* Global Simplify time limit *)
+tc = 60
+
+(* Help functions *)
+pSimplify[list_] :=
+  ArrayReshape[
+    ParallelMap[
+      Simplify[#, TimeConstraint->tc]&, Flatten@list, Method->"FinestGrained"
+    ],
+    Dimensions@list
+];
+
+psi4analytical[g_, coordinates_, vecn_, vecmb_] :=
+  Module[
+    {dim = Length[coordinates], t1, t2,
+      t3, t4, ig, dg, gamma, dgamma, RiemR, psi4},
+    dg = D[g, {coordinates}];
+    ig = Inverse[g] // pSimplify;
+    t1 =
+      AbsoluteTiming[
+        gamma = pSimplify[
+          ParallelTable[
+            1/2 Plus @@ ((ig[[i, #]] (dg[[#, j, k]] + dg[[#, k, j]] -
+                    dg[[k, j, #]])) &) /@ Range[dim],
+            {i, 1, dim}, {j,1, dim}, {k, 1, dim}
+          ]
+        ];
+      ][[1]];
+    Print["Finish computing gamma, time cost:", t1, "s"];
+    t2 =
+      AbsoluteTiming[
+        dgamma = pSimplify[
+          D[gamma, {coordinates}]
+        ];
+      ][[1]];
+    Print["Finish computing dgamma, time cost:", t2, "s"];
+    t3 =
+      AbsoluteTiming[
+        RiemR = ParallelTable[
+            dgamma[[l, i, k, j]] - dgamma[[l, j, k, i]] +
+              Plus @@ ((gamma[[#, k, i]] gamma[[l, j, #]] -\
+                gamma[[#, k, j]] gamma[[l, i, #]]) &) /@ Range[dim],
+            {i, 1, dim}, {j, 1, dim}, {k, 1, dim}, {l, 1, dim}
+        ];
+      ][[1]];
+    Print["Finish computing RiemR, time cost:" , t3, "s"];
+    t4 =
+      AbsoluteTiming[
+        psi4 = ((((RiemR . g) . vecmb) . vecn) . vecmb) . vecn;
+      ][[1]];
+    Print["Finish computing psi4, time cost:" , t4, "s"];
+    psi4
+  ];
+
+(* set metric *)
+Switch[m,
+  0,
+    frr = 2 - 3 Sin[theta]^2;
+    frtheta = -3 Cos[theta] Sin[theta];
+    frphi = 0;
+    fthetatheta1 = 3 Sin[theta]^2;
+    fthetatheta2 = -1; fthetaphi = 0;
+    fphiphi1 = -fthetatheta1;
+    fphiphi2 = 3 Sin[theta]^2 - 1;,
+  1,
+    frr = Sin[2 theta] Cos[phi];
+    frtheta = Cos[2 theta] Cos[phi];
+    frphi = -Cos[theta] Sin[phi];
+    fthetatheta1 = -frr;
+    fthetatheta2 = 0;
+    fthetaphi = -Sin[theta] Sin[phi];
+    fphiphi1 = -fthetatheta1;
+    fphiphi2 = -frr;,
+  -1,
+    frr = Sin[2 theta] Sin[phi];
+    frtheta = Cos[2 theta] Sin[phi];
+    frphi = Cos[theta] Cos[phi];
+    fthetatheta1 = -frr;
+    fthetatheta2 = 0;
+    fthetaphi = Sin[theta] Cos[phi];
+    fphiphi1 = -fthetatheta1;
+    fphiphi2 = -frr;,
+  2,
+    frr = Sin[theta]^2 Cos[2 phi];
+    frtheta = Sin[theta] Cos[theta] Cos[2 phi];
+    frphi = -Sin[theta] Sin[2 phi];
+    fthetatheta1 = (1 + Cos[theta]^2) Cos[2 phi];
+    fthetatheta2 = -Cos[2 phi];
+    fthetaphi = Cos[theta] Sin[2 phi];
+    fphiphi1 = -fthetatheta1;
+    fphiphi2 = Cos[theta]^2 Cos[2 phi];,
+  -2,
+    frr = Sin[theta]^2 Sin[2 phi];
+    frtheta = Sin[theta] Cos[theta] Sin[2 phi];
+    frphi = Sin[theta] Cos[2 phi];
+    fthetatheta1 = (1 + Cos[theta]^2) Sin[2 phi];
+    fthetatheta2 = -Sin[2 phi];
+    fthetaphi = -Cos[theta] Cos[2 phi];
+    fphiphi1 = -fthetatheta1; fphiphi2 = Cos[theta]^2 Sin[2 phi];,
+  _,
+    Print["Error: m must be one of {0,1,2,-1,-2}."];Abort[]
+]
+
+h = aa {
+     {0, 0, 0, 0},
+     {0, AA[t, r] frr, BB[t, r] frtheta r, BB[t, r] frphi r Sin[theta]},
+     {0, BB[t, r] frtheta r,
+        (CC[t, r] fthetatheta1 + AA[t, r] fthetatheta2) r^2,
+        (AA[t, r] - 2 CC[t, r]) fthetaphi r^2 Sin[theta]},
+     {0, BB[t, r] frphi r Sin[theta],
+        (AA[t, r] - 2 CC[t, r]) fthetaphi r^2 Sin[theta],
+        (CC[t, r] fphiphi1 + AA [t, r] fphiphi2) r^2 Sin[theta]^2}
+    } // Simplify;
+g = DiagonalMatrix[{-1, 1, r^2, r^2 Sin[theta]^2}] + h // Simplify;
+
+rule1 = Switch[type,
+  "in",
+    {
+      AA -> Function[{t, r},3 (F''[t + r]/r^3 - (3 F'[t + r])/r^4 + (3 F[t + r])/r^5)],
+      BB -> Function[{t, r}, -(-(F'''[t + r]/r^2) + (3 F''[t + r])/r^3 - (6 F'[t + r])/r^4 + (6 F[t + r])/r^5)],
+      CC -> Function[{t, r}, 1/4 (F''''[t + r]/r - (2 F'''[t + r])/r^2 + (9 F''[t + r])/r^3 - (21 F'[t + r])/r^4 + (21 F[t + r])/r^5)]
+    },
+  "out",
+    {
+      AA -> Function[{t, r}, 3 (F''[t - r]/r^3 + (3 F'[t - r])/r^4 + (3 F[t - r])/r^5)],
+      BB -> Function[{t, r}, -(F'''[t - r]/r^2 + (3 F''[t - r])/r^3 + (6 F'[t - r])/r^4 + (6 F[t - r])/r^5)],
+      CC -> Function[{t, r}, 1/4 (F''''[t - r]/r + (2 F'''[t - r])/r^2 + (9 F''[t - r])/r^3 + (21 F'[t - r])/r^4 + (21 F[t - r])/r^5)]
+    },
+  _,
+    Print["Error: check wave type, can only be in or out"];Abort[]
+]
+
+rule2 = F -> Function[L^5 (#/L)^n E^(-(#^2/L^2))]
+
+(* set tetrad *)
+vecn = 1/2 {1, -1, 0, 0};
+vecmb = 1/(Sqrt[2] r) {0, 0, 1, -(I/Sin[theta])};
+
+(* Calculate psi4 *)
+psi4 = psi4analytical[g, {t, r, theta, phi}, vecn, vecmb];
+psi4 = psi4 /. {aa->a};
+psi4 = psi4 /. rule1;
+psi4 = psi4 /. rule2;
+
+psi4 = psi4 /. {t->0};
+(* psi4 = Simplify[psi4, TimeConstraint->tc]; *)
+
+Put[psi4, filename]
diff --git a/calculate_modes.wl b/calculate_modes.wl
new file mode 100644
index 0000000..aabacb7
--- /dev/null
+++ b/calculate_modes.wl
@@ -0,0 +1,61 @@
+(*
+  Usage: Please set the fowllowing variables from outside as
+  command line arguments, like this:
+    wolframscript -file calculate_modes.wl psi4_file r rfilename ifilename
+  for example:
+    wolframscript -file calculate_modes.wl psi4.txt 2.5 rmodes.txt imodes.txt
+*)
+
+(* Parsing arguments *)
+argv = Rest@$ScriptCommandLine;
+(* Print[argv] *)
+Check[
+  psi4file = argv[[1]];
+  (* {l, m, r} = Interpreter["Number"]/@argv[[2;;4]]; *)
+	r = Interpreter["Number"]@argv[[2]];
+	rfilename = argv[[3]];
+	ifilename = argv[[4]];
+,
+  Print["Error: Check your command line arguments!"];Abort[]
+];
+
+(* Set Assumptions *)
+$Assumptions = Pi > theta > 0 && 2 Pi >= phi >= 0 &&\
+                Element[l, Reals] && Element[m, Reals] && -l<=m<=l;
+
+Y[s_, l_, m_, theta_, phi_] :=
+    (-1)^m*
+      (Sqrt[(((l + m)!*(l - m)!)*(2*l + 1))/((((l + s)!*(l - s)!)*4)*Pi)]*
+        Sin[theta/2]^(2*l))*
+        Sum[
+          (((Binomial[l - s, r]*Binomial[l + s, r + s - m])*(-1)^(l - r - s))*
+          E^((I*m)*phi))*Cot[theta/2]^(2*r + s - m),
+          {r, 0, l - s}
+        ]
+
+(* Y[l_, m_, theta_, phi_] := ((-1)^(l + m) E^(I m phi)
+  Binomial[-2 + l, -2 - m] Cot[theta/2]^(-2 -m)
+  Sqrt[((1 + 2 l) (l - m)! (l + m)!)/((-2 + l)! (2 + l)!)]
+  Hypergeometric2F1[-2 - l, -l - m, -1 - m,
+          -Cot[theta/2]^2] Sin[theta/2]^(2 l))/(2 Sqrt[Pi]) *)
+
+psi4[theta_, phi_] = ToExpression[Import[psi4file, "Text"] ]/.{t->0};
+
+mode[l_, m_] := Module[{f},
+  (* f = Simplify[Conjugate[Y[-2, l,m,theta,phi] ]*psi4[r,theta,phi]*Sin[theta] ]; *)
+  f = Conjugate[Y[-2, l,m,theta,phi] ]*psi4[theta,phi]*Sin[theta];
+  Quiet[NIntegrate[f,{theta, 0, Pi}, {phi, 0, 2 Pi}] ]
+]
+
+(* mode[0,0,2.2]//Print *)
+
+(* result = ParallelTable[mode[l,m],{l,1,8},{m,-l,l}]//Flatten; *)
+lmlist = Flatten[Table[{l, m}, {l, 1, 8}, {m, -l, l}], 1]
+result = ParallelMap[mode@@#&, lmlist]
+rmodes = Re/@result;
+imodes = Im/@result;
+Export[rfilename, rmodes, "Table"]
+Export[ifilename, imodes, "Table"]
+
+(* result = mode[l,m]
+Print[Re@result, " ", Im@result] *)
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r0.4.txt
new file mode 100644
index 0000000..4c13d25
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-1.3069104711516916e-20
+-2.783462761240938e-22
+0
+1.3772040211125065e-21
+-1.737079286361358e-22
+-2.107594162239173e-20
+3.3067372167419834e-20
+-1.7766598786720205e-19
+0
+1.5757790669135177e-22
+-8.094375884137652e-21
+-1.3565762045869654e-22
+5.920545234348296e-22
+8.7305811727675e-21
+-7.330557306506187e-20
+1.6353360710173357e-21
+0
+6.712239798622798e-20
+-2.997371667647151e-20
+9.101571677497533e-23
+5.107840282514946e-22
+1.315217173959314e-22
+-2.8144820342116767e-22
+-1.234298230536314e-20
+7.230840683662919e-20
+2.5347489380918494e-20
+0.
+-6.026010762448807e-22
+4.5432895144475045e-22
+1.6724558010056528e-21
+3.241658782049374e-20
+5.790264287871194e-24
+-2.2333876538931747e-23
+-1.972825760938971e-22
+-6.394312930188042e-21
+-4.453747213138639e-20
+-8.529783079070252e-21
+1.3834595744949388e-21
+0.
+6.3953469059537335e-21
+-8.871512069631222e-23
+-1.2674474935843767e-20
+1.611451230829867e-22
+9.48745143325352e-20
+-3.3190622078690235e-23
+1.613228376677149e-22
+-1.9802083479060068e-19
+-3.8308802118862094e-22
+-3.861899484856948e-23
+-2.0300935426975485e-19
+1.9838893016318677e-20
+-9.156351713563857e-20
+0.
+-3.5078248236536245e-20
+-7.837536303939937e-23
+3.695222591427513e-21
+3.0894549644002027e-22
+-3.405993720369518e-21
+-3.3504444063335197e-19
+-1.694173169494291e-20
+-4.446095792472524e-24
+2.3636686003702766e-22
+-3.701633241174799e-23
+-1.238702967298159e-22
+1.5450829113695577e-21
+1.0463291911518812e-20
+4.841162422906678e-20
+-1.3413324230618977e-20
+0
+1.877100284551272e-20
+-1.1067263005653234e-20
+-1.013218702195032e-21
+9.98130410834182e-20
+-4.272387863836388e-22
+-3.556876633978019e-23
+1.2449068218923067e-22
+-2.0886310466963949e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r1.3.txt
new file mode 100644
index 0000000..f0ed951
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-3.2415031202290234e-21
+1.1577834988093405e-20
+0.
+2.544850154308443e-20
+-1.015106212838398e-25
+-1.5117358297743696e-21
+9.797589103625165e-21
+-5.1013766478205555e-20
+0
+-1.5422425072397827e-20
+5.190881461197027e-24
+2.447005996953357e-20
+1.756464908231908e-20
+-8.356905471344161e-20
+-9.553828550090644e-21
+8.059686461680011e-20
+0.
+3.726495663039566e-21
+-2.918154260593567e-26
+1.5251245184216548e-20
+-8.449374575353496e-21
+-7.740419322353816e-23
+8.666248695044287e-22
+-3.458766217765848e-21
+-5.066345744516439e-21
+-2.0318512368757383e-22
+0
+1.0545745016484157e-24
+-2.2163835993089548e-26
+9.031693747424331e-24
+9.006898271451424e-25
+-1.5660895830779967e-23
+2.0646799674364366e-23
+3.842677027189502e-21
+-1.407515717405698e-21
+5.185611699956195e-21
+-4.389693626144415e-22
+1.775269494287173e-22
+0.
+-1.734130839842004e-24
+3.981538760831491e-25
+-5.432411737713976e-26
+-2.805345888969514e-22
+-2.820256142628209e-21
+1.873519891027076e-20
+-2.7847673478515564e-24
+8.087002647381154e-20
+-4.613618041869768e-22
+-5.286570263756787e-21
+-4.834106810580703e-21
+-4.070822202167473e-21
+-2.0026791606006653e-22
+0
+-2.9157793475067447e-22
+-8.436520282540424e-25
+6.194419817721264e-24
+-2.315552628990609e-22
+2.39818763896981e-24
+-3.32663875743108e-20
+-2.0416477533588798e-23
+-4.114799455828666e-24
+-3.687682810356704e-20
+1.1537604243130386e-20
+4.548401333113337e-22
+-2.8368886121716336e-21
+5.510194710389765e-21
+-7.003131997414492e-22
+4.19348410283001e-21
+0.
+1.6554719412606065e-25
+-3.578146848337674e-24
+-2.5233861502720774e-21
+1.722320796919053e-21
+2.953130025675852e-20
+-5.082056521599978e-24
+-1.2673133958132957e-19
+1.7688287605404054e-19
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r1.8.txt
new file mode 100644
index 0000000..9d2997a
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.8489774482118965e-20
+4.380337070207105e-22
+0.
+-5.709225019257662e-22
+1.4431778980900765e-21
+6.907856906448373e-22
+4.061149282537417e-22
+2.306717101481701e-21
+0
+2.2978226705178614e-22
+2.161626459664164e-22
+-1.1073376161852272e-20
+5.480106445557063e-20
+-1.56860214190093e-20
+9.77066075888344e-21
+6.573290856723281e-22
+0
+-1.3598225531859083e-21
+-3.7757815139583854e-21
+6.016315619127936e-21
+1.878259113805749e-21
+0
+-2.5843966037724943e-21
+-5.925195639395979e-22
+1.2846126722196271e-23
+-1.5242747744548853e-18
+0.
+2.122453004782504e-22
+1.5713985551037176e-20
+6.357421746614603e-21
+7.089211908831214e-21
+-6.3456659104659695e-21
+-3.1715506810600325e-21
+-4.898139715219715e-24
+9.118464475774238e-21
+-5.592399531245952e-22
+7.694839096153348e-21
+4.2690588562224285e-21
+0
+-6.841142372463398e-20
+-1.3526463813284089e-21
+8.32601005896243e-22
+-1.218161594150612e-21
+3.970143489534022e-22
+4.322887699902e-24
+1.8361609751385232e-21
+-9.517565681557135e-21
+-1.4737082439199435e-20
+3.6639204341194534e-24
+5.653032388881299e-21
+1.214285830297295e-21
+-1.6678168409491978e-21
+0.
+1.103558854524374e-20
+-5.44385022083968e-25
+-2.3488347185199746e-20
+-4.366253413305285e-21
+-2.2141531567292006e-23
+2.6408333166270613e-20
+-2.0804323575638146e-20
+-5.280069787379648e-21
+7.651950780643815e-29
+-9.567266746257974e-22
+-1.7190210769494913e-23
+-5.117171670880455e-21
+-1.824367878407209e-20
+7.572762950825466e-25
+-1.975240210649679e-21
+0
+1.112492376506761e-22
+-2.2368828649842295e-21
+2.2239959591329178e-24
+-1.734084939299702e-20
+1.6527583215538982e-20
+-1.2961558913427557e-20
+-4.2304789219694925e-21
+1.4370043919610288e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l1-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N1-l1-r0.4.txt
new file mode 100644
index 0000000..4ec995f
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.1066022234734404e-20
+-5.171533189681529e-21
+0
+3.2549102154624735e-19
+-6.281940443972713e-20
+5.232744555010453e-21
+-1.0458044484507929e-20
+-1.4942190585157892e-20
+0.
+-3.4288290751548103e-19
+6.193928426797071e-21
+-5.795227371546512e-21
+-1.2177215310607514e-19
+-9.034466650304168e-21
+9.118839072784577e-21
+4.0813091423366385e-21
+0
+-5.366086069754001e-20
+-2.2290449556772713e-21
+1.941662956724081e-17
+-2.2762025223989194e-19
+3.6473495134760064e-20
+-3.6627557523848065e-20
+1.1276126110322873e-20
+-2.4060616067636192e-20
+-6.1757304533209046e-21
+0.
+-1.9071476203022606e-20
+8.602678370551488e-22
+-2.4649982254080225e-21
+8.919736699343063e-20
+-7.112098906730932e-21
+1.0401666955883612e-21
+-3.8887061143760615e-21
+5.293955920339377e-21
+-2.283183926768867e-20
+1.015777792215118e-20
+1.8112773873073647e-20
+0.
+-2.161307135315304e-19
+4.1044701994881233e-20
+1.5405411728187587e-20
+3.1745640946136665e-21
+-1.31371306233766e-21
+-2.100667170843895e-22
+3.9539233280034723e-22
+-9.330597309598152e-22
+2.105258669478418e-21
+5.885886366682324e-20
+1.3253584082692141e-19
+-7.286799452102131e-20
+-3.0357528480696116e-21
+0.
+9.974888288715705e-20
+-3.4936800351789677e-20
+7.940106699896513e-20
+1.009491219559715e-20
+7.867562798616899e-21
+-1.854538933343888e-21
+-1.9951596374779028e-21
+2.2208846250639796e-21
+4.8079549987217955e-21
+2.8863546590371582e-21
+-2.632588733361674e-21
+-2.4560646747924498e-20
+-1.2571400476701417e-20
+2.777445022284615e-20
+5.2582217178770863e-20
+0.
+9.861647262857196e-21
+-7.454551680327885e-21
+9.723586469454431e-22
+-1.0517808283764885e-20
+-2.0218083433546782e-21
+2.5788275976135977e-21
+-3.415430364818585e-21
+-5.4037657622429254e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l1-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N1-l1-r1.3.txt
new file mode 100644
index 0000000..3386303
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.2644651889749293e-21
+2.7449641276338436e-21
+0.
+2.164886759416127e-25
+-1.7580617242627887e-24
+3.3580035123508046e-21
+-2.1603663466154955e-21
+1.5332703844813883e-20
+0.
+-8.825591590289738e-20
+1.070714217116003e-22
+-5.571249803004453e-20
+1.7442629945522117e-20
+5.09481183445755e-22
+-1.621948346673621e-20
+2.7985038774574785e-22
+0
+-3.137430470575998e-20
+-1.3142801334216563e-24
+-1.4753242823087747e-21
+-1.1098578738863042e-24
+9.84781137464254e-24
+5.433720363292429e-22
+1.0492236770609633e-21
+-1.4229045382657109e-21
+-3.643584185712078e-22
+0
+1.4779593049241536e-24
+1.48230119534649e-24
+-1.0079042283180922e-23
+2.209685375051836e-21
+-1.5556084615468682e-24
+3.665363310018909e-24
+-6.423865250041206e-22
+-2.6374096453692094e-22
+9.296695021386982e-21
+1.9699863665511547e-22
+-8.017221904971476e-22
+0.
+2.2155672431301988e-20
+1.2751344571674378e-21
+-1.4054739686781433e-21
+2.3251530030982762e-23
+2.7464981276174747e-26
+3.5847289522695445e-21
+8.821484404288278e-24
+-7.062539155811642e-24
+-1.1028466296219936e-21
+5.800255159486542e-20
+-1.5819742882139187e-21
+1.8011409512912522e-21
+-6.701520054871994e-22
+0.
+5.581853547599044e-25
+1.2805547520016476e-23
+7.01202681432853e-26
+-9.806613902728277e-25
+2.4989901787051235e-23
+-5.952663106570081e-22
+4.4575058766056405e-24
+-4.367739816478731e-24
+1.1845888762484252e-22
+1.0636217895982144e-23
+-3.852850934729701e-22
+-5.229332434983672e-22
+1.072814884286847e-21
+-3.833365792691703e-21
+5.718994277046654e-21
+0.
+6.667673504416943e-21
+4.421036420438715e-21
+6.414906819383772e-22
+5.506815987578267e-21
+-4.4299399211335974e-24
+3.1503949110906327e-25
+2.7601942675450495e-22
+3.0292258760486853e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l1-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N1-l1-r1.8.txt
new file mode 100644
index 0000000..a0452c0
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-1.0137841576918945e-21
+1.4944180988506848e-24
+0.
+1.4471621751843253e-24
+-1.6196261017273638e-24
+-5.580652459539191e-22
+2.3881666568492534e-21
+1.0253808421389758e-22
+0.
+-3.374896899216353e-22
+-4.214772795467509e-21
+7.492285333427082e-25
+-2.1812328661400693e-21
+6.558508281779818e-22
+-5.589209719716441e-21
+-1.4137368082950804e-20
+0.
+-7.097948786818733e-21
+-3.538503369297825e-21
+1.5179018695321646e-21
+-4.364961006608436e-22
+-1.4588347922266995e-23
+2.8753937081272636e-22
+-1.5896500941483364e-21
+-1.99292770385243e-22
+6.457469462426173e-22
+0
+-2.1248662427289058e-21
+-4.0421945661347475e-21
+-1.2262306346245078e-24
+1.755335420974345e-24
+1.65113005083827e-24
+1.4174676836633787e-22
+5.622142251750492e-23
+-5.192831777790223e-22
+-1.4753208087964368e-20
+-6.460207882618121e-22
+1.0304840779981591e-20
+0.
+8.336282592456798e-21
+4.743767721892241e-24
+2.152859924894647e-21
+-5.21717514180113e-23
+-1.255795879174743e-23
+-3.2978172370583354e-25
+-2.18440305199355e-22
+9.498036760154785e-24
+-1.3794165676923725e-22
+3.1118984989158474e-24
+-2.5187625418432684e-21
+1.0281649026674563e-21
+-2.7638172216928037e-22
+0.
+5.336203523890669e-22
+-2.905907100376702e-21
+-2.4366333620982695e-21
+-9.670046302816416e-25
+-1.742859049332859e-22
+7.860146950749744e-25
+1.4964739334785631e-21
+-1.7359459519869324e-21
+2.0122137752632734e-24
+-7.056376397715212e-21
+-4.9816629273579313e-23
+4.0658108149612065e-22
+-1.16480601179391e-22
+-4.121096408631404e-21
+-7.14622656934728e-23
+0.
+1.1747648947840076e-21
+-3.90568674294684e-21
+9.72126243444473e-22
+-6.137842713598813e-25
+8.497988324275245e-25
+3.595517439252896e-22
+-1.4681648079249295e-24
+2.530333780792991e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l2-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N1-l2-r0.4.txt
new file mode 100644
index 0000000..18ba896
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-5.807469644612297e-20
+1.6173035336636797e-20
+0
+3.364308987375674e-20
+-1.4823076576950256e-19
+-4.034490719666137e-20
+3.163138662402778e-21
+2.097730033434478e-21
+0.
+-1.7390645198314854e-20
+-6.485096002415737e-20
+-3.243209745697911e-20
+5.603652341679231e-20
+-4.198029496646699e-20
+2.867338875353815e-20
+-7.874759431504823e-21
+0
+2.2813641294212503e-21
+-2.7459087614310307e-20
+8.125560593230901e-20
+-2.8031496598197e-20
+-2.3683426555073414e-20
+2.4762478817387436e-20
+-5.595711407798722e-20
+4.8429770503754664e-20
+4.240458692191841e-20
+0
+-1.2834534384372777e-20
+1.568996185890583e-20
+2.0061115087881048e-19
+2.394232924004111e-20
+-1.5928802182844846e-20
+1.503152609131362e-20
+-2.13875302193828e-20
+-1.417932649640513e-20
+1.164670302474663e-20
+-1.029954246197599e-20
+1.8992066864217515e-20
+0.
+-1.813128203927952e-20
+-4.4859658979975797e-20
+7.54262537160993e-17
+-1.0578124613821633e-20
+1.804878854463583e-20
+-1.4428097834456185e-20
+-2.5401320744219797e-20
+-4.3916673081665345e-20
+3.398140674429093e-20
+-2.04768560637502e-21
+-3.0092830684679147e-20
+1.2262125400486082e-20
+2.3538251510808956e-20
+0.
+3.032940433986931e-20
+1.3145554294692716e-20
+-4.2523700930126047e-20
+-1.370390120816601e-20
+2.214734731080104e-20
+4.649416787038058e-20
+-2.765347505826027e-20
+2.5806338745163876e-20
+1.3500828367784241e-20
+-1.789102656198541e-21
+-1.724084795926033e-20
+-1.9488375231749332e-20
+-2.241874009990086e-20
+-2.53497359652687e-20
+-1.3287167615561794e-19
+0
+4.27094029776442e-20
+3.2644629156133035e-20
+-1.2780612548191977e-20
+1.6389343066819414e-20
+-1.4239255085549743e-20
+1.4598845199669463e-21
+-7.092453367182798e-21
+-4.622236795332302e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l2-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N1-l2-r1.3.txt
new file mode 100644
index 0000000..4614cb6
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+8.62671830710381e-21
+-1.3143486343161333e-20
+0
+1.1477130999173259e-23
+7.734138727370809e-23
+2.078291289039482e-22
+-4.440770817279214e-21
+-3.717142877660168e-23
+0
+-5.185388464941792e-23
+1.0867498887721678e-20
+-3.1724444442939994e-21
+-8.491771544984026e-21
+-7.65452259341258e-22
+1.3365170747325545e-21
+3.0933969970069007e-22
+0
+3.200154994814526e-23
+-2.4017706073360004e-21
+-5.586700309000722e-23
+1.4529944447376777e-22
+2.3988237764037803e-23
+-2.188409708085604e-22
+1.218191473046258e-21
+-3.361248419109228e-21
+-1.7241287398960748e-21
+0
+-1.11400548995579e-20
+2.0343473189976024e-23
+-3.039134271940849e-21
+1.91719786474478e-21
+-9.652163772728142e-23
+-3.153626085358418e-24
+-1.0285473929214053e-22
+3.470733527998864e-22
+-1.872639971592021e-21
+3.385488688466153e-21
+-7.819727686963039e-21
+0.
+-1.3524403015242002e-22
+-3.941771487427507e-21
+1.9437451925289036e-22
+-3.877409121342317e-26
+9.707481476192625e-22
+8.526190013284475e-21
+2.593598961265876e-21
+1.2149188425601816e-23
+7.846779655872158e-23
+-2.946830932220161e-24
+8.049905232690124e-22
+-2.401822306124285e-21
+7.390858773161302e-22
+0.
+1.228021997638568e-20
+2.4628010269059285e-22
+-1.893106229404173e-21
+1.4139618595828317e-23
+2.626298444855863e-23
+1.1156050411252013e-23
+-6.2545194066665805e-22
+7.988755259672288e-23
+3.386270632638957e-23
+4.468326271434886e-21
+1.700243899708606e-21
+2.659218456089626e-21
+-1.0986509498352744e-21
+-1.6994994371573084e-20
+-5.459030151331991e-21
+0.
+2.1178408620771737e-21
+9.690033135146585e-22
+3.0149440857850745e-22
+-1.9854402652804047e-21
+3.10709717590231e-23
+-2.3781442610899546e-24
+-1.1166938269465874e-23
+-7.01082098048147e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N1-l2-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N1-l2-r1.8.txt
new file mode 100644
index 0000000..ee71545
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N1-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-2.0031374067450646e-21
+1.0171090360134455e-22
+0
+-3.541904664890809e-20
+-1.183149993957302e-22
+1.1816315439998348e-21
+-1.3982224058276662e-21
+6.211835594589137e-22
+0
+1.5832753912147795e-24
+-1.3493383742271264e-23
+-1.245940797657998e-23
+-1.3321662985809816e-21
+-3.895332445005722e-21
+-7.805475785061405e-21
+-1.7575520065220456e-20
+0
+6.445675676348757e-21
+4.712919701157695e-21
+-1.860768637332178e-22
+1.0475450820288488e-21
+-2.212695213882278e-21
+2.5986169749037465e-21
+6.1652743733903515e-22
+9.041536459602082e-22
+-2.310709654121276e-21
+0.
+-2.887425793306929e-22
+5.292663450632263e-24
+-6.5463590665329456e-24
+-5.372518691486308e-21
+-6.098970677415398e-22
+-2.6941531044793534e-22
+-3.0572563128217225e-23
+1.1445465491348963e-22
+-1.0816016588113055e-21
+-6.739971028658639e-22
+4.1280189975517423e-22
+0.
+1.3889137966589603e-20
+-9.822769774067204e-24
+-2.3785772384418378e-20
+1.844142630137289e-21
+7.140895131805434e-24
+4.184887664664763e-22
+-1.2921465896873272e-23
+-7.399187124836519e-24
+4.27807473054769e-23
+-1.2578961424488034e-21
+1.1792235113767678e-21
+-8.230188600961203e-22
+-1.9732942812077999e-22
+0
+-2.2959884241572464e-21
+-4.807987310464473e-24
+9.390802164142661e-24
+-2.404607578343116e-22
+-2.693587648982491e-24
+-1.3159280322982268e-22
+2.083784285294717e-23
+9.903549130761835e-25
+1.1720826162449624e-21
+-1.298996679135032e-21
+-5.0399856228914553e-23
+2.5932758438390975e-22
+-1.590745866121899e-21
+-2.745893898029399e-21
+-1.1155435289072558e-21
+0
+5.542271662818675e-23
+-1.655976812239948e-23
+-5.7385654995866295e-24
+3.693232188078557e-24
+-3.930723496760774e-24
+3.413670990429776e-22
+7.927298325099012e-22
+8.724558263932348e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r0.4.txt
new file mode 100644
index 0000000..c426284
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+9.405043564727925e-22
+-2.8159461438958955e-19
+0
+6.406772338164622e-22
+-1.6481573705119076e-22
+3.5146904227378146e-21
+-1.9737790865949384e-19
+-2.339887157759377e-21
+0.
+3.923731235645287e-21
+-2.4220882311318342e-23
+3.3004506440865804e-22
+1.758585982287737e-21
+9.206520217715198e-22
+8.833115379572276e-20
+6.236528228343552e-21
+0
+-9.964838044273186e-20
+1.313565914661505e-19
+6.472688293227442e-22
+3.9291079096268815e-23
+1.250800483756747e-19
+-9.11966625339713e-22
+-8.52182146567443e-21
+-4.487578900192058e-20
+6.962131061675068e-20
+0.
+-6.539069537384822e-21
+-5.583469134732937e-23
+-3.7575713300986973e-20
+-2.1339853596826774e-19
+-1.9935052762527967e-22
+-1.7939479534743788e-22
+1.3218346188597382e-21
+-2.2042295373006805e-21
+2.3359580498497502e-20
+3.2286953108870195e-20
+-8.289569829184853e-20
+0
+-2.7452056579103606e-22
+-3.9973503101625062e-22
+-6.319659879905131e-22
+2.6281079024458226e-22
+-2.3932403072690473e-21
+1.2395921864566534e-19
+9.295442133564648e-22
+-2.757161002701166e-23
+4.903113080908072e-22
+8.147729033647323e-23
+-2.188637182754056e-20
+4.272362014442246e-21
+-1.7079625287994915e-20
+0
+5.605223984843081e-20
+6.469586365930368e-21
+7.359736102613995e-21
+8.005234248437992e-23
+-1.6450554432148338e-22
+2.5142303352565594e-19
+1.3419971462907183e-21
+7.723798969713896e-23
+-4.676349270794902e-22
+2.0069469612067834e-22
+3.3924744872331048e-22
+-8.00100787249573e-21
+-6.169629996303326e-20
+-1.8184790285154045e-21
+2.150511911333604e-20
+0.
+1.8605359927848975e-21
+-6.030966071111043e-22
+1.7246715771730627e-22
+2.6956678789760912e-20
+-2.0265925007549178e-23
+7.682336541509675e-21
+-1.0474174506452713e-22
+1.7939479534743788e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r1.3.txt
new file mode 100644
index 0000000..b7249fc
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.0528054020023258e-23
+3.4502882728194526e-25
+0.
+-6.097225843310794e-24
+-1.1751343467449152e-20
+3.665908570676598e-22
+-1.6782224373316908e-21
+-2.8244502068277942e-24
+0.
+2.204394781572219e-21
+-1.5935873809678286e-24
+6.831712144056732e-24
+-2.6669542911834875e-21
+-1.834075098912437e-22
+5.30999506550788e-21
+1.5661353445835642e-20
+0.
+-6.269627771697569e-21
+-1.1140230594658711e-23
+1.8724772516753793e-21
+-9.366088729703897e-24
+1.3623266850416645e-22
+-9.956027803345608e-20
+-9.178606911009368e-22
+-1.3794862146439726e-21
+1.8667099590170682e-24
+0.
+-2.6608720095211652e-24
+-6.420199886731187e-22
+-2.2385478391988278e-21
+5.007843648129116e-20
+9.572408887603015e-21
+2.2661424208553995e-23
+4.524230786438659e-21
+-8.886692378776767e-21
+4.092229501619794e-21
+1.4477981106699038e-21
+-1.456855697987681e-24
+0
+1.792669115283707e-20
+8.438110285337439e-21
+1.5153772722973873e-20
+9.866465448561443e-21
+2.3022116657970009e-26
+4.7435152864025705e-25
+3.201645373945542e-22
+7.981112017916037e-20
+5.467636585942628e-23
+1.3280227214793305e-23
+3.499998172367999e-21
+4.2176956513390976e-21
+-1.560701347550975e-24
+0
+-1.0606331553489048e-21
+-1.754040426912334e-22
+-8.28011256580499e-21
+-4.0455739200349695e-21
+-5.442711105692541e-24
+4.029299555477192e-24
+-2.203509389335748e-24
+1.7271451420492482e-21
+-2.838742064218733e-20
+2.1303346517674468e-23
+8.421631637359645e-23
+7.11375372233992e-21
+-7.811822884174166e-21
+-5.205410638240515e-21
+-2.743189392545488e-22
+0.
+1.1512320506433358e-25
+-3.4079759246137695e-20
+7.64526124016754e-25
+-4.518393316714219e-24
+-6.608524587525727e-22
+-7.860841148346338e-26
+5.091242477412963e-20
+2.5647445750545536e-26
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r1.8.txt
new file mode 100644
index 0000000..9dbbf86
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-6.50323141961655e-22
+4.005938775310584e-21
+0.
+-3.618939358506241e-23
+0
+-2.561995457908731e-22
+8.570896695440068e-21
+3.520202916479183e-22
+0
+-2.616951385344459e-20
+-2.971374939846867e-20
+-6.396596190259452e-24
+-1.0359066057031612e-20
+-1.742998118016271e-20
+2.004729232106593e-21
+-4.9387445892999485e-21
+0.
+-4.53692017261266e-22
+-1.8094377293017754e-21
+2.7632442875184585e-20
+-1.476140444427748e-20
+4.246701748222876e-21
+7.458360036509889e-21
+-2.3729642929043163e-20
+-3.1778133679144155e-21
+-1.332721567516975e-21
+0.
+4.024535624470562e-24
+3.4749722117489702e-22
+-3.777191761091687e-23
+1.1968660762885609e-23
+7.411559591022924e-21
+1.761451728574092e-21
+3.8702177972910694e-22
+-3.727917909043059e-24
+5.774806109571533e-21
+5.239880746091366e-18
+-5.783284428043567e-21
+0.
+-2.844974674419902e-20
+4.2272460823423806e-23
+-1.7780581451972609e-22
+1.6740399914755177e-23
+-1.2754611165796808e-23
+1.0182880801441633e-21
+7.662049872615763e-21
+-5.919422511730767e-24
+3.4569863933413624e-21
+2.8452447482181853e-21
+-2.5060784098773268e-21
+1.7589206754594386e-23
+-2.5381830603959104e-22
+0
+9.530331246500336e-22
+-1.5526351659089997e-23
+-2.7293871552635037e-23
+6.845409135954084e-24
+4.525503043951659e-23
+3.5966799707893736e-20
+1.5775109684324416e-21
+-6.423557643986407e-21
+-3.630312550375834e-21
+-1.3542285229785914e-23
+-9.968781932280733e-22
+1.2620700739320113e-20
+-1.5146275240624802e-21
+6.602024047453e-20
+0
+0
+6.248105717832657e-21
+1.1539862457854131e-21
+2.1082234400542558e-20
+1.4063086198034687e-21
+-1.457300688606467e-21
+3.030973658269473e-20
+2.725847918486278e-24
+7.297673081868503e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l1-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N2-l1-r0.4.txt
new file mode 100644
index 0000000..9ae21a0
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.9413101796007007e-20
+-3.020036416431104e-21
+0.
+9.423820564632878e-20
+8.631629691990844e-20
+5.6765269536451524e-21
+-1.7544449093461432e-20
+-2.52579600043067e-21
+0.
+1.1994118882018901e-21
+-1.5964585822273434e-22
+8.023651941764368e-23
+2.0183206946293875e-22
+-8.56147443628869e-21
+-5.3080179907527786e-21
+5.529909190070128e-21
+0
+-6.518183226917858e-22
+1.2233691066929572e-19
+-2.064642808932357e-21
+-7.520932924485266e-21
+-6.766337410683766e-22
+2.614639334121928e-19
+1.58735959548926e-20
+2.51038976152187e-20
+-1.7607780109110024e-20
+0.
+-4.2516876690072484e-20
+-7.185568399809886e-22
+4.1400389658279035e-22
+-6.956588951570963e-22
+3.230140292019573e-22
+1.7875952063699715e-19
+-2.0188335466091704e-19
+4.4709112108491146e-21
+9.119942841914453e-20
+1.3267149844738011e-20
+6.7287006928126036e-21
+0
+4.517936428672754e-20
+-1.6511352207170985e-20
+2.436357096698374e-21
+1.0435710607968997e-20
+3.9125932486972603e-19
+9.258219005999762e-21
+6.762201507621001e-21
+-5.141444494899913e-22
+-4.56705027754309e-20
+-5.496615170414869e-22
+1.3641113927971546e-20
+-2.497573696780075e-20
+-4.3064883845888865e-20
+0.
+-6.964860757696493e-22
+6.250900491486661e-22
+-6.811377395037279e-20
+-7.286944208709328e-23
+-7.6059257324250895e-22
+-1.2658241516322413e-20
+-4.3534722433818985e-20
+1.361001620864124e-20
+-1.1371665471072748e-21
+1.1861252996127571e-21
+-2.6278494085043998e-21
+1.1030453468394624e-20
+-1.3993844168737185e-20
+-1.208200682210266e-20
+9.546780962688886e-20
+0
+-3.1441135083140582e-21
+-4.6938363859321555e-20
+6.108728823704109e-20
+2.5022213529729087e-23
+1.852884572118782e-22
+2.1704736616735196e-22
+2.1512899780972867e-21
+8.448574622432859e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l1-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N2-l1-r1.3.txt
new file mode 100644
index 0000000..a5f3b77
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+3.8413815282565115e-23
+5.9582853497960275e-24
+0
+-8.401053096241687e-25
+1.8159199384953186e-24
+5.2845855149628e-23
+-4.726303224974862e-22
+-1.7302550463077956e-21
+0
+-4.488101057953732e-24
+1.58973773975035e-24
+-5.318391675739503e-21
+-6.971394192065955e-21
+-9.26442286059391e-23
+3.033923195640478e-22
+-1.894999697525095e-21
+0
+-9.693522803355793e-26
+-3.2311742677852644e-24
+-2.3656234608022867e-24
+-2.0970320997926366e-24
+1.0985992510469899e-23
+-1.5464400045620275e-23
+-2.77997309303173e-22
+2.499222823252404e-21
+-8.988803695551827e-21
+0
+-1.2060357954508499e-23
+5.072943600422865e-24
+2.9116919120579963e-24
+-9.942013029245551e-21
+7.34235238505331e-21
+-2.1161313689411235e-21
+-8.591692378041018e-24
+-1.9579041981703387e-21
+-3.6041487135157174e-22
+1.3389937698088119e-21
+4.1089550693718093e-22
+0.
+-5.6416302715530716e-24
+-5.748259022389985e-24
+3.2426675546557765e-21
+-2.074924082335023e-20
+-3.370922554866977e-24
+2.722962254250927e-21
+2.0896387691711604e-22
+-4.158521282639635e-24
+-2.0302728082459252e-21
+-8.696624762387344e-22
+-1.8207807100666732e-22
+-1.4025081545970999e-21
+3.219946515281982e-20
+0.
+-3.66415161966849e-24
+-1.087306943215934e-20
+-1.0583711314130633e-23
+9.70967867469472e-25
+6.192132499749358e-21
+5.525307997912802e-25
+-1.0822378770246324e-20
+-5.892854070873376e-24
+-3.544598171760435e-24
+9.628899318000088e-25
+-5.1184983108372356e-21
+7.468516815513253e-21
+-6.987697081834065e-22
+1.390348438033857e-21
+5.978709400394306e-22
+0.
+-1.1921272058151683e-21
+-5.434090494304804e-20
+-8.497988324275245e-24
+3.6124754496038e-21
+-1.448761606446879e-22
+-2.2488236709206404e-21
+5.720035522954448e-21
+2.338562376309585e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l1-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N2-l1-r1.8.txt
new file mode 100644
index 0000000..d030b06
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-5.4821536460826125e-22
+2.6799577481274058e-21
+0.
+-1.441507620215701e-24
+-1.2714670743735015e-24
+-3.171715612548222e-22
+-1.426070685151357e-22
+-1.548237345248483e-24
+0
+-2.399146893830559e-25
+-2.6178456929713366e-21
+1.3538620182020258e-24
+-8.784856014737056e-23
+8.266813961286549e-21
+2.2040534383030862e-21
+-3.7608692483099515e-22
+0
+2.5910358322779553e-21
+-7.884065213396045e-25
+8.667624973333972e-25
+-4.52364397489937e-26
+-1.1481242668429016e-21
+1.7826509604406345e-22
+-2.356208879215017e-21
+-8.883540115843052e-21
+2.679095832391474e-22
+0
+1.40556080648659e-24
+7.674038885990003e-25
+-1.6438599087357532e-25
+8.347835656051264e-22
+4.2126434516250384e-24
+-3.518910336331542e-22
+3.525744269907908e-21
+-1.881916470966441e-21
+-1.1738678400279137e-21
+-5.042695164463385e-21
+-3.3297331608883844e-22
+0
+7.2156160367479685e-25
+-6.522933053091502e-26
+-1.4539152486246398e-20
+2.1919478439088287e-24
+3.335783534704812e-24
+-9.427758719830455e-24
+3.205417769903181e-22
+7.880234656301586e-21
+-3.9893289200427293e-23
+-6.627046031838358e-21
+-2.033399373246791e-21
+8.250786579611865e-22
+3.9341646973559654e-22
+0
+-1.313577474187448e-20
+9.948381673727356e-24
+1.3738871399472682e-20
+-2.6429111234568973e-21
+-2.3870907162077592e-20
+9.04728794979874e-26
+-9.325976730395219e-24
+1.919339487049468e-20
+1.8054186221250165e-24
+1.3777598638659223e-20
+1.1739583129074117e-22
+-5.603938623719356e-22
+1.7212642029334873e-22
+-1.6906760695842672e-20
+-1.6536801541549237e-22
+0
+1.0220204209004791e-23
+-6.434148916532314e-21
+1.5880777239702754e-21
+-1.9185097214975007e-24
+-3.398311199651075e-21
+1.8950804768817898e-21
+-9.343105992982316e-22
+-4.972164486700993e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l2-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N2-l2-r0.4.txt
new file mode 100644
index 0000000..4ff33e0
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.6060538773329585e-20
+5.763794508269497e-21
+0.
+1.937587866844212e-20
+4.3900026071837716e-20
+-2.9573361259995845e-20
+-1.881008712945585e-20
+-1.3412288688639303e-14
+0
+-6.097049033454861e-19
+-3.6849241928012277e-20
+5.55964633309141e-20
+-4.836028733230021e-20
+-5.2476338060364076e-21
+7.86020105272389e-20
+2.27309232329572e-20
+0
+-1.6940658945086007e-20
+-2.5966853789264645e-20
+-7.730499132675575e-20
+3.474158572722716e-21
+-2.848975465755138e-20
+-2.811090593700209e-20
+-1.4306915874717167e-20
+-6.856500097452046e-20
+-1.1593763465543236e-20
+0
+4.4932450873880463e-20
+-7.784596744736543e-21
+-3.967819962294363e-20
+5.588432218408255e-21
+1.2877547776225535e-20
+1.733770563911146e-20
+1.3026026696178803e-20
+1.0645345433174109e-20
+-6.205049982490305e-20
+5.93684069241559e-20
+-1.1779051922755114e-20
+0
+2.426617044985562e-20
+-1.3478080900939033e-20
+-5.890357163869245e-20
+1.1816171652743431e-20
+1.0564130398067855e-20
+-7.424773178275976e-21
+8.442184652200887e-20
+4.40725303880591e-22
+-2.2713070995127687e-21
+-2.5808035111654463e-21
+-2.6297726034285856e-20
+-3.8070160512140546e-20
+2.66649942262594e-20
+0.
+4.9846730893058e-20
+-4.349132852870499e-16
+4.988229965939778e-20
+1.1295978445024146e-20
+-7.544357322339575e-21
+-4.435380814703764e-21
+2.874452628621771e-21
+-1.6415134299824876e-20
+-2.947699471863342e-20
+2.210844801158474e-20
+-1.5749518863009647e-20
+-8.210429324078842e-20
+-2.984467650091324e-20
+5.814087089512721e-20
+6.348114892976956e-20
+0
+-3.4622471719019526e-20
+-4.409865281642701e-20
+9.840140566930817e-21
+-3.3597698337642894e-20
+-1.0978341089803783e-20
+-3.3511907985017005e-20
+2.3488620674055774e-20
+1.6749425127221404e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l2-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N2-l2-r1.3.txt
new file mode 100644
index 0000000..2f4ad5a
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+3.664616908763051e-21
+-1.4311775560815916e-21
+0
+2.0394138002494897e-21
+6.72084247699335e-24
+1.2450425312115536e-21
+-5.233309808558924e-21
+-7.105481461830508e-22
+0.
+3.316777121426846e-20
+-1.3524790756154137e-21
+-8.495726502287796e-23
+3.2261336359275193e-22
+-9.950982769012923e-21
+5.293736200489168e-21
+1.8249672264451173e-23
+0
+-2.287826477956821e-21
+1.0339757656912846e-25
+2.3105222460137446e-21
+-1.1218637057750438e-23
+1.711229892219076e-23
+-7.591708565646834e-22
+1.2717281532543386e-20
+-5.51633825814543e-21
+-1.1712877473750872e-21
+0
+-9.467340604610825e-24
+7.031035206700735e-24
+8.220107337245713e-24
+-1.655072083444968e-22
+2.4441167617024602e-21
+2.9287363563205636e-23
+-1.5769107036592754e-22
+1.1589982979028153e-21
+-5.263115472669521e-21
+4.314289731741027e-21
+2.2720324981358865e-21
+0
+-1.280578985808656e-22
+-5.595101362096964e-23
+-4.006656092053728e-23
+7.179669223018857e-24
+-2.6802590551278768e-24
+1.0351386653102605e-20
+-2.3315765775426333e-21
+-7.32830323933698e-24
+3.3170588798229967e-22
+1.91867128021089e-23
+6.191343487382843e-21
+-4.000253671703405e-21
+-1.666510440352928e-21
+0
+1.5171009422105373e-22
+-2.5733071868641845e-23
+1.971533291231857e-21
+1.8989378527226718e-20
+2.0194839173657902e-23
+-6.892081788488898e-21
+4.4331710954013827e-23
+4.616701793811586e-23
+-5.575268200857208e-23
+-2.2612016019902703e-21
+-6.226860554934339e-22
+2.436731912913437e-21
+-1.1979022835839809e-20
+3.830195202941439e-21
+2.984751993426889e-21
+0.
+9.317569214950442e-21
+-2.1112492665708917e-22
+-2.8628204012577442e-24
+3.4520056419427805e-21
+1.1322034634319566e-23
+2.0345618689689834e-20
+-3.5775561492918447e-23
+-3.077396222032828e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N2-l2-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N2-l2-r1.8.txt
new file mode 100644
index 0000000..d84f50c
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N2-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-1.864620197059378e-21
+-1.0046367033397944e-22
+0
+-2.813621734062879e-22
+8.088824726745597e-22
+-6.354039574114367e-22
+3.697180683033791e-21
+-2.3072401807512417e-21
+0.
+-4.3814723071168185e-23
+7.40578679827847e-22
+-2.2362957107341815e-23
+-1.457065724315087e-22
+1.511964667594466e-20
+-1.3213467115453026e-21
+-2.2481218085542755e-21
+0
+4.6838455950961635e-22
+-9.383330073648408e-24
+-1.2682359001057163e-23
+6.11338171464972e-24
+-1.6233419521353168e-23
+3.5405268921830256e-22
+-1.4237490864399532e-21
+1.4330419436341037e-21
+4.389291748844859e-22
+0.
+9.699985151891364e-24
+2.790810451525882e-21
+3.1918104872679704e-21
+1.0604713946871238e-23
+-2.5720147171570704e-24
+1.8337560204534932e-22
+7.771620348877118e-23
+-6.06071357408482e-22
+1.0425060657582377e-21
+-2.2905745916715722e-21
+-7.003247107997782e-22
+0
+-1.1477130999173259e-23
+-1.0178198943523583e-23
+3.002023427681768e-23
+4.084204274480574e-24
+4.071279577409433e-24
+-5.141379871414557e-22
+3.9161832125557404e-23
+2.5066965293337913e-22
+-1.8354362310727416e-22
+-6.448616044932441e-24
+-9.970272879391601e-22
+2.927841321048387e-21
+9.61865326439694e-21
+0.
+-2.8888184294163445e-21
+-1.7045934641698285e-21
+-2.1169361332821938e-22
+1.0697836389268809e-21
+-1.8098614867432212e-23
+1.2065204715910177e-23
+5.230463345977397e-24
+-8.5648736316184e-21
+1.0081263715490025e-24
+-4.041895278618194e-21
+-8.069686481557505e-21
+-1.3287040953530497e-21
+8.924531600397743e-22
+-1.7549670671078173e-21
+-3.928631311422383e-22
+0.
+1.352698795465623e-22
+1.1063540692896745e-23
+-9.435028861932972e-24
+6.698224257118853e-24
+-7.20551861716114e-24
+-2.483440152541407e-23
+-4.8467614016778965e-24
+4.9000757770963534e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r0.4.txt
new file mode 100644
index 0000000..0c66304
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.790256659990861e-20
+7.13203395949346e-20
+0
+-1.3116458216646163e-19
+-1.3172851254906966e-22
+5.7699983628636445e-21
+-2.6210691124208792e-20
+3.502530867733285e-20
+0
+-4.947574038832797e-20
+2.0405511735917501e-22
+-2.365736551901659e-22
+1.7510379591981905e-21
+2.864629858847704e-21
+2.241723566516178e-19
+5.4742295950876526e-21
+0
+-4.977580015553158e-20
+2.2342148345057277e-21
+-1.789715922977147e-21
+2.1847907929056843e-22
+4.434625123821886e-22
+-1.0735253387289762e-21
+1.0010880985119419e-19
+-2.924977854412276e-20
+5.339057943238831e-20
+0
+5.85716251991142e-21
+1.5096046179092755e-22
+7.771620348877118e-22
+3.432778862579751e-20
+8.871512069631222e-23
+1.7797121751323412e-19
+-3.82635656791131e-22
+-1.5441394084833644e-21
+1.0331112973276813e-19
+1.4731001035015447e-20
+6.3144383022883904e-21
+0
+-2.0200060751274643e-20
+-8.075081896349853e-20
+-4.048671697292593e-20
+1.992342053516394e-21
+1.1693115611929097e-20
+4.9861461816544834e-23
+2.6573177178266014e-23
+1.2923275354463232e-20
+-7.475644785947988e-23
+4.6154093241044716e-23
+2.0737542033796287e-19
+4.668007671305187e-20
+-2.077464108426929e-21
+0.
+-1.2425958860559866e-19
+-9.588671198366161e-23
+2.6577416478905348e-20
+-1.2743751312145083e-23
+-2.24284853214925e-21
+1.2945376586454883e-22
+1.634715685557921e-22
+1.140475269557487e-22
+8.271806125530277e-24
+-1.192897840878035e-21
+9.47974831379912e-22
+-5.666600786294516e-21
+-3.186832863308447e-20
+-8.4974713363924e-22
+6.504121156504457e-20
+0.
+9.36557153987266e-21
+5.562789619419111e-23
+1.6662519464115051e-22
+2.0113898258249881e-22
+1.063702568954909e-23
+-3.877409121342317e-23
+1.8972111131939674e-20
+-1.8058386747798285e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r1.3.txt
new file mode 100644
index 0000000..c73034d
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-1.0723982647546944e-21
+4.879073144355749e-25
+0.
+-3.889526024846512e-25
+2.201086008634909e-24
+9.843835302687781e-22
+2.8525131699136754e-21
+-3.072643265659112e-22
+0
+-5.192317152703561e-20
+-3.4083115224511574e-20
+-2.137849908730434e-22
+-9.869318878362485e-24
+3.0951289089387885e-20
+-5.704159148189685e-21
+4.431379813166679e-22
+0.
+-7.511066533858584e-24
+-1.2182158078274623e-24
+-1.187203878836207e-20
+-8.895321785016964e-25
+2.2150572799423646e-19
+3.8846550296378257e-22
+2.251559172130024e-21
+5.882052659192953e-21
+-8.111515648041119e-22
+0.
+7.106652358605796e-20
+2.8063253386694362e-25
+-5.92920478138596e-25
+3.442866669423133e-24
+3.1185880393921216e-24
+1.983794789784535e-21
+3.34830433499248e-24
+9.841970017411559e-22
+-2.8669901306761252e-21
+-4.515147501188033e-21
+6.421191453334614e-22
+0.
+3.6831072681694835e-20
+1.9670975957815588e-21
+-2.722264320609085e-25
+-1.5273356867037471e-24
+-5.29714145427063e-20
+2.5532335167255686e-24
+-2.9815660555988527e-24
+2.677653920874475e-23
+1.870357045997635e-21
+-3.876601327775371e-24
+6.738331838806462e-22
+1.8318665913004058e-21
+-7.421272200956831e-22
+0
+1.787780853487527e-21
+-1.4227264197841992e-25
+-5.565397580949997e-21
+4.708578214632142e-24
+2.0712552126960526e-20
+6.3185612806540844e-24
+-1.0807470132174763e-23
+-1.1094890252462169e-20
+6.056028371396532e-24
+-2.0189386567081015e-23
+-5.282015721677952e-22
+-7.544750313909895e-21
+4.1489311574128486e-21
+-8.263987693544195e-22
+-6.909288599258421e-22
+0.
+-2.5785416891779967e-22
+-4.868167931201974e-24
+1.9851332027507692e-20
+2.9303216511956958e-24
+2.109451925884436e-24
+-6.74657070210059e-23
+-1.1499603816205706e-20
+1.92861031167408e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r1.8.txt
new file mode 100644
index 0000000..496a311
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.6915562430102646e-21
+1.9086403615983712e-22
+0.
+2.0510383535746307e-28
+1.0657502752586276e-21
+-1.5766811697877593e-22
+-4.6191077627745246e-21
+1.1211354293873437e-24
+0
+1.0081739704299474e-22
+3.801375551853495e-24
+-2.5665754712215117e-21
+6.697640580167675e-21
+2.4771441063962285e-20
+-4.128547723684858e-24
+-2.315524088003058e-24
+0.
+-1.4301531750733183e-20
+2.3894063549172518e-23
+-2.6899982839009924e-20
+-8.005381528768997e-22
+-4.689470425785879e-25
+-1.677610533704729e-24
+3.0754433116649757e-22
+2.544519120189164e-22
+4.9951171110241e-21
+0
+7.88829350784803e-25
+-4.305443320909856e-21
+-1.714216835150605e-24
+-3.480873634426996e-21
+9.073581078200209e-24
+-1.7437166831317972e-23
+2.1054361032286638e-22
+-4.879082232033377e-22
+-1.0121085413985581e-27
+9.60810299010791e-18
+4.4246723418820294e-23
+0.
+8.32735771047594e-25
+8.16473466072715e-21
+1.0736949122691625e-25
+-3.0937791322734424e-21
+8.069978814476318e-21
+-2.0035589077484986e-21
+1.3627727992942023e-20
+9.882775910901206e-21
+-1.3360614530889438e-20
+-6.287221414611464e-28
+-2.1503954469072286e-21
+-4.0497946907260706e-21
+-3.631275999215585e-22
+0.
+-4.5145295432113957e-20
+-6.866696308456619e-21
+3.3431808409880355e-21
+0
+4.4984781492418455e-21
+-8.663646277627843e-21
+-2.5877916544270084e-21
+5.560498725935152e-22
+4.412144336797059e-20
+2.137813053148942e-28
+-5.395703732375894e-23
+9.134585595127884e-22
+4.229793921948711e-21
+6.101429619965844e-22
+1.0292322993142581e-21
+0.
+-3.3518384318478703e-25
+-1.0737595988633907e-24
+-1.324147185902638e-23
+7.444492984345172e-24
+1.8240804679015584e-23
+-3.198712202238503e-22
+-2.5108697928490277e-23
+-7.136387382588914e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l1-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N3-l1-r0.4.txt
new file mode 100644
index 0000000..71b9391
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.0593488530120177e-19
+6.435465165662555e-21
+0.
+1.7436967312617823e-21
+-1.2681505971050467e-20
+-3.9687298609681715e-20
+1.0778137532171808e-20
+5.3320062285168164e-21
+0
+5.042493014123257e-21
+-1.7044056521655135e-21
+-3.661266827282211e-20
+5.66618719598824e-23
+6.637297235125494e-21
+5.1822865376447184e-21
+2.336785230462303e-21
+0
+1.656594451201235e-20
+-4.652601432396387e-20
+3.416255929844004e-21
+-3.8384489144910696e-20
+-6.805693113265391e-22
+5.6049758306593155e-21
+-2.446795632362395e-21
+-9.907762582007027e-20
+4.599124205794834e-21
+0
+-2.7996755012469775e-20
+1.715986180741256e-21
+-2.2823981051869416e-21
+8.222175288777095e-22
+-5.740302578872991e-20
+-4.44735595043696e-22
+2.574186066265022e-21
+-5.757673371736604e-20
+5.823351512373315e-21
+-1.5133889692117056e-20
+-3.437762625770383e-21
+0
+-2.911981813013302e-19
+3.7499405889478957e-20
+8.345259763924986e-20
+-8.395883217413231e-22
+-1.5890737334383202e-21
+2.108354134426956e-21
+-7.772387752765717e-21
+1.945528800724721e-21
+-7.940933880509066e-22
+-2.2279698740753263e-18
+-4.7621821840443495e-21
+6.851950604083005e-21
+2.4046140406916515e-20
+0.
+1.0652742121187598e-19
+2.8876875184226196e-21
+1.3462778059606802e-19
+2.874618064744282e-20
+-1.2076836943274204e-22
+-7.384654918567155e-22
+-3.0356817622357203e-21
+-3.1497971438510925e-21
+-2.7943195067806966e-21
+-2.3784632133311535e-22
+-2.190059933407647e-19
+8.058703058675645e-19
+-7.085086289852247e-21
+-1.1182654701104381e-20
+-1.7365829779938263e-20
+0
+-8.642408889348175e-21
+3.576418775949584e-21
+4.180570814932422e-21
+-2.5418743235871695e-21
+1.5435190230239496e-21
+-2.198232477859671e-21
+1.4270545777158976e-21
+2.2188118267711954e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l1-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N3-l1-r1.3.txt
new file mode 100644
index 0000000..cf95079
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.3191088002474346e-20
+6.867705809812726e-21
+0
+-7.037148588415385e-21
+-4.88553549289132e-24
+2.7491186099486486e-21
+4.998580063354348e-20
+-1.045601530706776e-21
+0.
+1.2071667064445748e-23
+-8.213644988710142e-24
+2.1416223046880732e-23
+6.483803532708623e-22
+-1.404858995435627e-20
+3.8660405577985416e-20
+8.67978065092938e-21
+0
+-5.4929962552349494e-24
+-4.479619225500796e-24
+-1.7999605225518736e-20
+8.384897224902761e-24
+1.4773574987167786e-22
+-8.530170819982386e-22
+2.5984021018149388e-21
+-4.092570430894724e-20
+-3.3702259136948425e-20
+0
+-3.9549573037691636e-24
+1.6267669968591692e-20
+-1.0150320371941131e-20
+1.862771965378205e-23
+9.674135757749081e-24
+6.1233078820003565e-21
+1.4470717023048273e-20
+1.3196016754923069e-21
+-6.437352171434942e-21
+5.979257286381088e-21
+2.764385908363934e-21
+0
+-2.024330678767468e-23
+7.693272450818995e-22
+-2.2197055695736648e-20
+1.2968624885311598e-21
+-3.794206383946847e-24
+-7.395309715715176e-21
+-9.82613827324137e-21
+-7.588766177579232e-23
+4.8204596431381245e-22
+5.318335130189817e-21
+9.505484818790421e-21
+-1.1732451927465115e-20
+4.117472444741691e-21
+0
+-7.242342694703954e-21
+-1.6046988844037628e-21
+4.289151195937658e-21
+-3.833594398271149e-22
+-5.432133856726946e-21
+-4.894421222127729e-24
+1.6705170964449817e-23
+4.0518925318027215e-24
+-7.764792877649288e-21
+1.4034928549552074e-22
+-3.679451229826453e-22
+-1.0914228129982388e-21
+-7.115847068881563e-21
+7.800817239560825e-21
+1.663961690090499e-20
+0.
+3.822479158789968e-23
+-2.716125089500293e-23
+-2.5493964972825736e-23
+3.4896682092080855e-25
+8.30411786820813e-25
+2.7872917027482637e-24
+-2.7589071494703164e-21
+-1.8546940297087417e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l1-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N3-l1-r1.8.txt
new file mode 100644
index 0000000..8831c68
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.2516161215764936e-21
+5.878061755075455e-21
+0.
+-7.286619071798632e-21
+-5.5980094189379705e-25
+4.933544684058857e-21
+-8.298069513875619e-22
+3.100311709939961e-24
+0
+1.87001282496392e-21
+3.2776223978846775e-25
+2.9594130844292386e-20
+-5.7748336132069935e-21
+-1.2019596691120388e-21
+-3.5893349911882724e-21
+7.374153854632342e-22
+0
+1.6685961633427833e-21
+5.333457025763052e-25
+-4.0753185452441647e-25
+1.0988434470422778e-20
+1.2539295125279919e-20
+-3.359542762992621e-22
+1.5541291895773978e-21
+8.697024620202983e-22
+-1.9001590750371812e-21
+0.
+1.63352895602872e-20
+-2.706108449270159e-26
+2.0150662962965526e-25
+-1.6978811035252881e-25
+1.0502645190719736e-20
+-5.756639880647053e-24
+-8.492353964145795e-23
+5.804647304766163e-22
+-1.776999030801103e-21
+8.671869423657295e-22
+2.2836808813712524e-22
+0
+2.7670968635746058e-24
+7.189311047033929e-21
+2.2779697101710048e-20
+-6.037117520097535e-21
+9.077580208559227e-25
+2.0804925265094107e-23
+-3.717617456380749e-24
+-1.0832915629533572e-23
+1.737704947722507e-22
+-6.426805618624891e-24
+-4.350856123135986e-21
+2.127895165682367e-21
+-2.7047394916096746e-22
+0
+1.3445723921821431e-24
+2.0973072481654904e-21
+1.269101304677609e-22
+4.849581610968498e-21
+-3.749702108092094e-21
+1.7852237829513586e-25
+-7.179052876527277e-21
+-7.02780403243295e-26
+1.2440020930973268e-25
+-1.0465306094290895e-20
+-2.774731522524207e-21
+1.2021922126851235e-21
+-2.449945497158957e-22
+3.683900657767389e-21
+-8.300260653925961e-22
+0
+-1.5598493777733364e-24
+-2.1994603240814294e-23
+-1.9260169510119163e-21
+1.1684733945878462e-24
+-6.902596029556271e-24
+-9.35008734888465e-22
+1.699853614246736e-20
+-5.497262717932972e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l2-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N3-l2-r0.4.txt
new file mode 100644
index 0000000..993e192
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.1117307432712692e-21
+-1.3181950241645049e-20
+0.
+7.265954500665795e-21
+-7.859986502752509e-21
+7.596495873441985e-20
+-2.0408613663214575e-21
+-3.057921288486033e-20
+0
+1.928323443983618e-20
+8.255924257769259e-20
+-1.7021722645116203e-20
+2.6641833169107915e-20
+-2.50801161726078e-21
+3.092993746458281e-20
+-7.246102165964522e-21
+0
+4.986906476959693e-20
+-3.188946697514432e-20
+-5.194694246833014e-22
+2.597347123416507e-20
+1.49719690872098e-21
+2.515611339138611e-21
+-4.456001280307846e-20
+-1.3301064249852685e-20
+5.7836468429707695e-21
+0
+-1.5226740715876133e-20
+3.613124915631625e-21
+7.00787414954925e-21
+5.093674814524975e-21
+-2.660212849970537e-21
+-2.0494549974040592e-20
+-4.253414408535953e-21
+-6.8027333576361e-21
+-1.4377019421670896e-20
+-1.593083685328127e-19
+-3.65282958503417e-21
+0
+5.088815128426226e-21
+-1.0965106200002935e-20
+-1.644768167574893e-20
+3.80569256223397e-20
+2.210407542500686e-20
+-1.802966807090621e-20
+-4.239135203211756e-20
+-3.5089001584499434e-21
+5.1960177358130986e-20
+7.082733994985299e-22
+6.347453148486913e-20
+-5.012714512071348e-21
+9.875874769393108e-20
+0.
+-1.8901076996836682e-20
+-2.970240143555412e-20
+-5.838902507889312e-20
+1.323292524689363e-20
+-1.733770563911146e-20
+-2.2302960663537578e-20
+-2.9749964320775917e-20
+-1.5719997239312027e-20
+-1.965587930579132e-20
+5.532584299441267e-21
+-2.0356048920226245e-20
+1.203216919019634e-20
+-2.317266352945466e-20
+3.974271971072277e-20
+9.005018876618912e-20
+0
+-5.234398916235559e-20
+-3.4026901677981346e-20
+-5.047817989316567e-20
+-9.595295105615121e-21
+5.9299931879073e-21
+7.313944557223215e-21
+2.0397033134638833e-20
+-1.7474969153181246e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l2-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N3-l2-r1.3.txt
new file mode 100644
index 0000000..ec83597
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.9877602484046745e-21
+1.396125777624657e-21
+0.
+-2.10284821347465e-23
+5.9453606527248864e-24
+2.7058900218896566e-20
+2.339615739120883e-21
+-4.469101753259155e-22
+0.
+3.588955732108591e-21
+-9.407757751112864e-22
+-2.481541837659083e-24
+1.8583129448886612e-22
+-1.4656089490791113e-21
+1.2550010103048678e-21
+6.331550601210581e-22
+0
+3.822194815454403e-21
+4.875673949026039e-21
+-2.161655585148342e-24
+-8.06991266375625e-21
+5.800604045528107e-23
+-4.1711874857693535e-22
+2.6625497967597127e-21
+-3.7346623045401e-21
+1.6059129981348831e-21
+0
+-3.350727715693319e-24
+1.0481929324695398e-23
+-1.822414598773567e-21
+-2.061799375576706e-21
+-2.0227150916335755e-23
+3.4140587313419103e-23
+-1.1675525099215274e-22
+6.664232303821752e-22
+-3.15642428227432e-21
+2.253395084959301e-21
+-3.2723265032597775e-21
+0
+-1.0987440076541867e-20
+-1.8784237735313567e-21
+1.2205825420044192e-21
+-9.394655339456995e-21
+-5.6545549686242126e-24
+8.698321128877932e-24
+-3.351858626687044e-23
+-2.099435285654302e-23
+-8.81018115085439e-21
+9.6919072162219e-24
+4.319330363598772e-21
+-2.8532044266368153e-21
+-1.2984796912521863e-21
+0
+-5.906586561511463e-24
+3.1471637368228475e-23
+2.7077240364040515e-23
+6.830702402098049e-24
+1.5907070920306856e-23
+7.676009902293352e-22
+-1.5284617509360703e-21
+3.627839683247119e-21
+-9.288531459599423e-21
+5.0651887821801804e-23
+-2.701223317674051e-22
+1.5952436607026562e-21
+-3.749347991587184e-21
+3.66132111100991e-21
+7.395615061683482e-21
+0
+-2.3988237764037803e-23
+3.7648133609850845e-20
+-4.0163496148570836e-24
+1.6068758880666831e-21
+7.470071010336058e-24
+3.606753039975552e-21
+1.5138710604124592e-20
+-8.006720588601174e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N3-l2-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N3-l2-r1.8.txt
new file mode 100644
index 0000000..a9ed515
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N3-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.634966424681101e-20
+-2.0732765065758793e-21
+0
+-7.550297836230898e-21
+2.6334070282449904e-24
+1.1040276238168691e-22
+3.6688163151007606e-17
+2.50235059994362e-22
+0.
+-2.3180444197091486e-23
+-3.683538665275201e-24
+-5.841963076155758e-24
+-2.7182253527743536e-23
+-5.045995607029536e-22
+-1.2059388602228164e-21
+-3.6194967912876974e-22
+0
+-4.95339015251481e-24
+-4.095190266991044e-23
+5.071260158629349e-21
+2.3005960786631082e-24
+1.1542214926862124e-21
+-1.590461522786334e-21
+4.436495165929367e-22
+1.423873486649263e-21
+2.035439455900114e-21
+0.
+-2.139622207816314e-21
+4.972777198121522e-24
+3.90972086402017e-24
+6.3137145192524065e-24
+4.473069635259995e-21
+2.387404806541427e-21
+2.4027011855251226e-23
+-3.537741619964195e-21
+4.074039707053493e-22
+-6.406744065389779e-22
+-5.410536687921069e-22
+0
+1.843342106712445e-21
+-1.380357647197865e-23
+1.0404187271812484e-21
+-4.510719277828229e-24
+1.4576473356832885e-21
+3.2752410224493198e-21
+3.3416804277435204e-23
+3.9176311825244917e-22
+8.409050252554456e-23
+5.221577616740987e-24
+-4.346721027866788e-21
+-1.1229089906506723e-21
+-1.6009838417893767e-20
+0.
+6.172633372785232e-23
+1.8269059310057885e-23
+2.742071418870609e-21
+-1.1294569653043392e-23
+-8.914809804819544e-24
+8.594923552308803e-25
+1.6440214674491425e-23
+-5.8104591270448516e-24
+1.6543612251060553e-23
+1.2143528380161292e-21
+-1.741114215228255e-22
+2.942242664759906e-22
+1.9598291702403717e-21
+3.9492090447467736e-21
+-1.05498203350294e-21
+0.
+-4.385995951091718e-23
+-4.446418909899302e-23
+1.8185824260919736e-21
+9.745221591640357e-24
+-7.538329566743022e-24
+1.9884646443950517e-21
+-1.3409373211308847e-24
+4.448923069956836e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r0.4.txt
new file mode 100644
index 0000000..02ff730
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+4.848180791910249e-19
+2.06830411711867e-19
+0.
+-2.797938421960616e-22
+5.1527148307459476e-20
+4.628825159664316e-21
+-3.813385341930713e-20
+-3.0003908768829696e-21
+0
+-6.89138643978647e-20
+-3.6025628531850884e-20
+2.409163534060693e-23
+-3.607438048920323e-21
+1.7688657693502396e-19
+3.6777173817143594e-20
+1.237875786685606e-21
+0
+8.476843519866858e-20
+-4.019580789124869e-24
+2.8663255791034377e-20
+7.454176763138626e-21
+-2.9488988837515437e-22
+-6.830443908156626e-22
+-4.867335451463622e-19
+-3.837704451939772e-20
+-2.203959152637952e-19
+0
+3.8797355668151226e-22
+-5.047978255560249e-20
+-4.9600437865670337e-20
+2.8612177388209227e-21
+-1.2731488359563984e-19
+1.4628172145117449e-22
+-2.9529055398435974e-22
+-6.509911420792328e-22
+-5.750068479979945e-22
+1.0876556515429133e-19
+8.875647972693987e-22
+0
+1.133505238920962e-19
+5.38313633013025e-23
+1.4454981204364159e-22
+8.959400009714981e-23
+-1.0265311401783073e-21
+3.7119729988317117e-23
+2.0958368238074974e-19
+-3.2468648500296296e-21
+1.7139440786040156e-22
+9.14391298510259e-21
+2.7093796900988647e-20
+-6.804656552560285e-20
+-4.7052514783853873e-20
+0.
+-3.82726129670629e-22
+4.122373489871068e-20
+-2.8434333556510326e-24
+8.447582005697795e-23
+1.21130260950734e-22
+-4.011412380575908e-21
+2.2710036922490237e-19
+1.0132962503774589e-23
+2.4862464273929784e-20
+1.9159247820832725e-22
+5.928817040473826e-22
+-2.1812494259081917e-21
+6.2075252081159116e-21
+7.447985934215746e-21
+2.2756307338004922e-20
+0
+-1.3633068698337328e-19
+7.040340988591957e-22
+2.034218072026891e-22
+-1.0262209474486e-23
+-3.727834187077416e-20
+-1.1983779124361988e-22
+-2.5907296785160827e-21
+1.1146258754152048e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r1.3.txt
new file mode 100644
index 0000000..2e61669
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+4.806351528491407e-22
+6.791928310884626e-24
+0.
+-3.1261611040822433e-25
+-6.006221435645756e-21
+-5.541155292109155e-21
+-9.051464242539853e-21
+1.5202674929929669e-24
+0.
+-9.10605089282625e-21
+-1.4893253239181934e-20
+-7.539896686262898e-21
+2.0385316896743844e-22
+5.972219788825851e-22
+6.409086666733923e-21
+8.437331105333246e-21
+0.
+7.576320905990074e-20
+-8.480071462960376e-22
+1.9584955030613434e-24
+2.5106224060691504e-24
+2.0258855602148047e-20
+-1.0381350947674912e-21
+-2.3843250935674443e-21
+-2.3652903444057623e-20
+-1.2082844504031584e-20
+0
+-1.4858352922018802e-24
+2.0921755438939594e-20
+1.1399986713529886e-24
+1.1619504615347547e-23
+4.979318710426653e-21
+1.3782977736021518e-23
+-1.1454298714003521e-21
+5.614197602019575e-22
+7.611331890871878e-22
+7.89081998320285e-21
+-1.5558588775526216e-22
+0.
+3.192759702769295e-20
+2.4487131070983847e-22
+-5.792377677790717e-22
+1.1539331103828125e-24
+1.0098212436214909e-20
+-2.0566424214453208e-24
+7.572108666435232e-20
+-3.0835297985866514e-23
+-3.104269898417998e-23
+1.5071973930797755e-21
+2.8521056254373765e-21
+-7.73473694899423e-21
+1.7149922664877754e-20
+0.
+1.5207322974113878e-20
+2.061116991961028e-21
+-5.517326391626197e-21
+-2.197606033948504e-21
+9.980797621775345e-21
+7.638780514328322e-21
+1.6043588033120784e-23
+1.1015073078879966e-23
+-2.186750015422956e-20
+3.850751933633089e-24
+1.3160330454619298e-22
+-9.763077868437706e-22
+-5.338260166312115e-21
+6.202960972514273e-22
+4.352052465408634e-22
+0.
+3.928701993359491e-21
+-1.5020921377366748e-24
+-2.0687165118904673e-21
+2.1713491079516976e-24
+-1.1046577027990873e-25
+-1.6204481124610883e-20
+-1.2240596894133396e-24
+1.0912171487560943e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r1.8.txt
new file mode 100644
index 0000000..89642f3
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-1.5117688988235164e-20
+-3.465112959524619e-21
+0.
+-5.753604293041678e-20
+8.5085315859576e-20
+3.2427684404992234e-22
+-1.4137125542932329e-21
+-4.351722784659124e-24
+0
+2.3161958030638537e-24
+4.026346060248044e-27
+-1.2834703819073444e-24
+8.623827415876101e-25
+6.142367686212692e-21
+-7.545128392853662e-21
+-2.160914781649467e-22
+0.
+1.989886837544864e-21
+1.3902569049253024e-24
+9.171280661174967e-22
+-9.310221600396145e-24
+8.442689174819252e-25
+2.594786962438856e-20
+-5.336272423002131e-22
+8.03163325775016e-22
+-2.967783077862831e-24
+0.
+3.8783319071634176e-21
+9.266463782595236e-21
+2.3252511373948857e-24
+-6.424814533700113e-25
+-1.3886531885703115e-21
+2.6130149738450273e-24
+2.329801640505886e-21
+6.33993430094463e-21
+-1.0229313154322942e-21
+1.7159896990608932e-21
+-1.4205077043120544e-21
+0
+2.9154752889594363e-24
+-9.557132728702042e-22
+1.6658148701383584e-21
+-2.1213310521178706e-21
+-3.0249029671974503e-21
+-6.756461124585889e-24
+-7.421241593153709e-21
+-2.5763424644866676e-20
+-7.820374913572526e-20
+-1.07430267784736e-20
+-6.659595789628534e-21
+-7.678395606997357e-23
+3.100556745914341e-21
+0.
+4.5244643902408e-25
+-1.3209854511160349e-24
+-2.954336328421833e-21
+-9.213895372981418e-28
+3.0315561871864453e-23
+-3.7095560987809813e-20
+-1.4363847574971958e-24
+-6.184755956087945e-23
+8.03931303954354e-25
+-1.867332638168451e-20
+-1.1107548560671948e-22
+1.5055185525541473e-20
+2.1111558843723753e-21
+-3.582767720996864e-21
+2.659065652154563e-22
+0.
+-5.2799407019528585e-25
+1.7317723539946722e-21
+1.8811530675492644e-20
+2.1651818836403673e-20
+-1.111015219608963e-21
+-4.2597913013473826e-24
+2.3909991439709836e-21
+5.881560738154232e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l1-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N4-l1-r0.4.txt
new file mode 100644
index 0000000..a88ae36
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+4.0247299884380115e-20
+7.653902207953165e-21
+0.
+5.082197683525802e-21
+1.4029500176782195e-21
+9.15523501973691e-21
+-5.1625996390659563e-20
+-3.556876633978019e-21
+0.
+-4.6629825490839276e-20
+-1.016869670623688e-19
+1.8067692529689507e-21
+4.8768914554901406e-20
+-2.0639810644423147e-20
+4.912791094074942e-20
+6.695199878004206e-21
+0
+2.9867837558064723e-20
+-3.922490464726457e-21
+-1.4756902127946014e-21
+-8.027126100337091e-20
+2.15852134610859e-21
+-3.1718240588345846e-20
+3.4428084275069565e-20
+-1.3634914345079087e-19
+-1.2499526236288801e-20
+0
+6.574431508571464e-21
+1.4139592746434175e-20
+-3.014246152143233e-21
+6.699801070161532e-21
+-3.301102048818966e-20
+-3.416255929844004e-21
+1.6445384553319881e-21
+9.571274556108405e-21
+-1.0032439379834082e-19
+6.061290015574193e-20
+3.038327447726183e-20
+0.
+2.599828665254166e-21
+-3.667718836060125e-20
+-2.940461641503503e-20
+-1.707300784309449e-21
+-1.0455950683582404e-21
+-8.071214826986168e-22
+-8.042677095853088e-21
+2.623072440466906e-20
+2.8504643908577334e-21
+6.853288310229868e-22
+5.180549458358357e-20
+-6.80765508228079e-20
+-2.188864657422508e-20
+0
+-6.137680145143465e-22
+-2.7477078792633335e-20
+-4.343111806209672e-21
+1.9797740780844164e-20
+2.810759721455188e-21
+1.2834741179525916e-21
+-2.1601304708939472e-21
+-1.327647501367484e-21
+-2.6966087969228702e-21
+2.1894953826395797e-21
+2.9923258659105776e-21
+2.5326677538920983e-20
+9.299668509506912e-21
+6.838219405914624e-20
+4.1824940107671877e-20
+0.
+3.2381639439613374e-20
+4.632211430296955e-22
+-3.8187573256609095e-21
+-8.784658105313154e-22
+-5.3763844683802863e-20
+-2.915984060067093e-21
+2.2797097681961443e-21
+-1.6812042053356814e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l1-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N4-l1-r1.3.txt
new file mode 100644
index 0000000..b352594
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-4.201965713139715e-20
+1.9989982725080316e-22
+0
+-2.2881599351412563e-20
+-1.8252903438718958e-23
+1.432059666656697e-21
+-7.094249900075686e-21
+-2.8769729445506437e-22
+0
+-9.724128486020255e-21
+8.487997533439253e-21
+9.645055189339014e-25
+3.2911690960023673e-22
+-2.486808651715573e-22
+5.252338395770303e-21
+3.459398568667473e-21
+0
+1.357093192469811e-25
+2.551981436696802e-22
+-1.6179652781537221e-21
+-1.1968269487876619e-23
+6.344087557369588e-23
+-2.8833383578581806e-22
+-3.1539492027851965e-22
+-8.336976891027588e-21
+-1.1209331275859216e-21
+0.
+-2.2107726651929457e-21
+-5.3570866031833656e-21
+6.947076374526603e-21
+2.722522814550508e-22
+6.152155805863143e-24
+1.5302337269045237e-20
+4.1130263489492187e-22
+2.013680728380848e-21
+-2.050852561054233e-21
+6.220088013669061e-21
+9.58854195139545e-22
+0
+-2.3884840187468674e-23
+9.564275832644382e-24
+5.981032816641236e-22
+-7.748136174298855e-21
+-2.8628204012577442e-24
+-1.0469004627624257e-24
+-2.2055995551902214e-23
+2.989792625284634e-21
+1.9471340481009568e-20
+4.654673746013031e-21
+-9.280255614506058e-23
+-2.6948557233238833e-20
+3.1052230948269948e-21
+0.
+3.432870627928956e-21
+-3.2221269798354656e-23
+1.4617832387460536e-23
+-5.767646067996697e-24
+-8.045623926785308e-24
+4.937234281175884e-24
+-4.134610593058024e-23
+-4.252225336405408e-21
+-1.8546940297087417e-23
+-2.1101775264559457e-21
+4.1850492233781522e-22
+-1.2711051828555096e-21
+-6.784755104010142e-21
+-7.7666443405047285e-22
+2.44809272163897e-21
+0.
+-9.697077095050357e-22
+5.380066714575854e-23
+-2.0031664873134746e-21
+5.03901627061112e-24
+3.140701388287277e-24
+3.5025929062792266e-24
+-2.678617618599842e-21
+-9.005282684317532e-24
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l1-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N4-l1-r1.8.txt
new file mode 100644
index 0000000..895c1b6
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-2.2174563491658595e-21
+4.437815908411324e-25
+0
+-1.3824372309566115e-20
+-1.704444426256727e-25
+-2.939037339886263e-21
+-3.056784561378626e-21
+1.7226165503387513e-21
+0.
+8.570915927499159e-22
+-6.859550729857619e-23
+-1.8247164065425805e-21
+-1.0099140187126547e-21
+6.791508258229814e-22
+-2.4968422556106132e-21
+6.168376300687425e-21
+0
+6.670219669739958e-21
+-5.590021148354438e-21
+-2.5417248817772844e-21
+-3.82645188755221e-21
+2.823036568085638e-24
+-1.5003359137427768e-20
+-7.50239083094958e-22
+2.881996410795091e-21
+1.2226459698918269e-20
+0.
+-1.2452137834477463e-24
+-2.1257411639412653e-20
+-4.0470457704010436e-24
+9.117969886906543e-25
+-7.174820846030046e-21
+1.2442670931690654e-22
+-2.653016217082612e-23
+-9.376080126385064e-23
+1.4579780892836295e-21
+-2.692440582117427e-22
+6.329214058318189e-22
+0.
+-1.329199070861196e-24
+2.8159627198198893e-21
+3.5746154777855725e-21
+-5.408177930705586e-25
+-5.136258460200117e-22
+-1.9401434429622817e-24
+-3.841866204396679e-24
+3.1225954527906443e-24
+3.085932984448317e-23
+-1.5625423721989181e-21
+-1.8297745069362107e-21
+4.3951199794303765e-21
+1.789611717607011e-21
+0
+2.5374613473309418e-21
+1.8512552524942513e-21
+-1.787099479613808e-21
+9.028102852583765e-25
+1.5534274189161132e-23
+-2.605419808427785e-21
+-1.196152946030241e-24
+-6.147309044461465e-25
+5.5172280427594215e-21
+2.2978495805354907e-23
+-5.061190204023796e-23
+-3.591037012233828e-21
+2.268141558472298e-21
+-5.0161714646410945e-21
+-3.539940636001814e-21
+0
+-7.045220061736313e-22
+2.786126712963433e-23
+-1.7788858346250978e-21
+5.048709793414476e-25
+2.942993912777166e-24
+-1.9003300626360196e-25
+-5.445336434785117e-24
+6.341179500528581e-25
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l2-r0.4.txt b/modes_wolfram/imode_a1e-06-m0-N4-l2-r0.4.txt
new file mode 100644
index 0000000..42c4f9c
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+1.490910336065577e-20
+6.048344638987738e-21
+0.
+6.657149569826767e-21
+2.426017339041461e-21
+1.0223125190542869e-20
+8.07328277851755e-22
+1.1408475008331358e-20
+0
+1.1850189455434674e-20
+1.7923246115222435e-20
+1.3885053762315123e-20
+1.6927424055285158e-20
+1.9579365099130165e-20
+-1.7423732422816975e-20
+4.235164736271502e-22
+0.
+1.5775988642611344e-20
+5.885390058314792e-21
+-1.2289422360700332e-20
+-6.193928426797071e-21
+-1.2469334143930616e-20
+-6.700162961679524e-21
+-4.516406144539531e-22
+-7.009528510774357e-21
+-4.1345795737850535e-20
+0
+3.131705799125763e-19
+-5.1252110753785595e-21
+1.0852609636695723e-21
+-1.1580528575742387e-21
+-8.576208590949791e-21
+2.5469860412788058e-21
+-2.8329902004175507e-21
+-9.967526381263983e-21
+2.8646918973936454e-20
+2.6488804755785605e-20
+-4.827370721000134e-21
+0.
+-1.568996185890583e-20
+-9.73426144852403e-20
+-2.916136797892536e-17
+1.5658467085824972e-21
+1.2857359399400413e-21
+3.4861009928164506e-21
+-1.1468032012435176e-20
+3.843163843982622e-20
+-1.046409647391149e-20
+-2.0348126080921635e-21
+9.863615906266942e-21
+-1.1540410316033566e-20
+8.123079051393242e-20
+0
+-9.43647642800494e-21
+-1.9834136727796498e-20
+-2.4841888156192527e-20
+2.150669592637872e-23
+-1.0781402633769405e-20
+2.2145279359269657e-20
+1.2159555004529507e-20
+-5.386758476484438e-21
+4.308783810788721e-21
+-4.6719160996995e-21
+-2.236581023422027e-20
+-5.3284486172955634e-21
+-9.797437367807767e-22
+2.404531322630396e-20
+1.722727702733563e-20
+0
+-1.4555070058483075e-20
+-1.5487509403983475e-20
+2.935560596374126e-21
+-3.049814918483013e-21
+-1.0700723544451271e-20
+6.062096163261747e-21
+-1.3528538918304768e-21
+-6.617711472301314e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l2-r1.3.txt b/modes_wolfram/imode_a1e-06-m0-N4-l2-r1.3.txt
new file mode 100644
index 0000000..f252db4
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-2.4974237054201012e-20
+-4.477115065443262e-23
+0.
+9.433788091014142e-21
+-4.950158978247025e-23
+-1.0886007053927552e-20
+1.1380350867504555e-20
+5.257508274598759e-22
+0
+1.540623890880014e-21
+-6.884107250396004e-21
+-6.669143688708786e-23
+-3.99218043133405e-22
+3.517947446399742e-21
+1.2209046900789174e-20
+-2.0052925999816773e-21
+0
+4.056442025171763e-21
+5.010905054481388e-23
+1.010194323080385e-22
+-4.6373813091254114e-23
+1.4734154661100805e-24
+9.972954754033863e-22
+9.331579586575559e-21
+3.587055801639133e-21
+2.8490168247857656e-21
+0.
+1.172011530411071e-22
+-2.128956101558355e-22
+-9.008513858585317e-23
+7.754818242684634e-24
+-3.380737246705375e-23
+-5.7385654995866295e-24
+1.427920532419664e-22
+-1.7047675436835055e-21
+4.179226647347603e-21
+-6.858154458677152e-21
+-4.198355199012892e-21
+0
+-1.2767532754755982e-21
+-2.526726578619792e-21
+2.4718483148557272e-23
+2.6237135054416347e-24
+1.5574259970724974e-24
+4.290999427618831e-24
+1.134529908904762e-22
+8.801395588020282e-23
+-4.255585757643905e-22
+2.802074325023381e-23
+-4.001899803531548e-21
+1.1039894959605093e-20
+9.279816174805639e-21
+0
+-2.753477464035891e-22
+-1.5335153074908865e-23
+-1.0609883825699694e-22
+-1.1683926152311516e-23
+6.953487024273889e-23
+-1.7409566954827004e-23
+1.96638517234261e-21
+6.36846353604576e-21
+3.264778480170231e-23
+7.286246275067487e-21
+7.678950270877036e-22
+-3.530057887555401e-21
+4.551949061485169e-21
+-9.857666456159284e-21
+4.711465672737192e-21
+0.
+-1.4579058296247113e-23
+2.1312663911598214e-22
+-1.2782525403358506e-23
+-2.1971985020939798e-23
+7.070515081905298e-23
+-1.0236360080343717e-22
+2.3389875988432256e-20
+1.317533925909316e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m0-N4-l2-r1.8.txt b/modes_wolfram/imode_a1e-06-m0-N4-l2-r1.8.txt
new file mode 100644
index 0000000..2554cdb
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m0-N4-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+4.1071809527504034e-22
+5.48703877767872e-24
+0.
+-4.321695583162791e-26
+4.7060969536289655e-21
+1.611772454990473e-22
+-5.661447972105161e-22
+-2.1500157847196248e-21
+0
+7.049210561957027e-24
+4.9283485519394745e-24
+-8.948091606597104e-21
+8.40098241430458e-23
+8.480272038103049e-20
+1.799057550707902e-21
+6.114997301783613e-25
+0
+-6.648141055968181e-25
+-4.940776254018552e-21
+6.993434940514281e-24
+2.151392567880289e-21
+1.3950998797946352e-23
+-4.63588446764586e-21
+5.592355021741527e-22
+8.76019811610602e-22
+-1.2880778344648145e-22
+0.
+-1.1342871669378947e-20
+-4.149538618175192e-22
+1.2924697071141057e-25
+-1.1694983533578465e-20
+-1.361503745345338e-22
+1.8496453199153273e-24
+-3.137268265627755e-23
+3.7467717359538003e-22
+-7.65193916861129e-22
+1.9896898652877175e-21
+5.349065616960372e-22
+0
+1.7312368386090622e-20
+-1.1229888612396041e-21
+3.482398067105569e-24
+-4.351987841923278e-26
+2.1579281025130248e-20
+1.4919401516943986e-20
+-6.545280662121072e-21
+-8.000782901987335e-21
+4.9197152581927357e-23
+1.1475717360431103e-24
+1.6176291350556766e-21
+-5.724056517382315e-22
+-2.8642283854449316e-21
+0.
+1.7835132800733497e-22
+9.774302160050425e-26
+-3.2933743724401307e-24
+-4.6092700929956796e-24
+1.4219202670479358e-22
+1.8393459519367617e-24
+2.523665444897849e-21
+-5.740461088165665e-21
+-1.350832792325977e-24
+1.470777111346238e-20
+-9.09186805727459e-23
+4.434727107759713e-22
+-2.031356968186963e-21
+2.1659130358993834e-22
+2.0267611276620178e-22
+0.
+1.897876250416991e-21
+7.157051003144361e-25
+3.1833251207181787e-24
+1.1055766689556846e-21
+2.1966936311146383e-24
+4.530207297630809e-25
+4.882914202766579e-22
+2.2322385675441936e-20
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r0.4.txt b/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r0.4.txt
new file mode 100644
index 0000000..43048e7
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+-3.841795118562788e-20
+0
+2.5890753172909766e-22
+7.808584982500581e-22
+-2.8507745835874408e-21
+-2.1264332006900682e-20
+3.437318016191136e-20
+-1.8822494838644145e-21
+4.814191165058621e-22
+8.674927427179166e-22
+-1.1248208764649209e-20
+3.4219117772823356e-20
+1.5879179424027334e-20
+3.735547646289473e-21
+0
+-4.0509878030077416e-22
+2.0720874344453343e-22
+-1.4619900338991919e-21
+0
+1.7337201575925686e-20
+-2.5867954007276273e-20
+4.693112602896172e-21
+6.227636036758607e-21
+-5.121049322921652e-21
+3.0758694366863067e-20
+-1.045794108693136e-20
+2.960272617174148e-22
+-1.085653874460535e-20
+1.5054351106341254e-20
+-3.16112240965968e-21
+-1.5547686793546708e-20
+-3.321057781096808e-20
+-8.45851629941998e-21
+-8.542087390681979e-21
+6.783501408394242e-21
+3.0397853535558076e-20
+-5.4114982853831624e-20
+-2.1020365424985824e-20
+7.899574849881414e-23
+-7.118241369013992e-21
+7.803001513365848e-21
+1.898689698538906e-20
+-7.229610252501746e-21
+7.131537651125928e-21
+2.2071660284752437e-20
+-7.223975084578729e-21
+-9.783659640729931e-21
+-6.3458711655654055e-21
+1.2605612149848727e-20
+-3.161660077057839e-20
+5.476835214017195e-20
+-5.309597227176159e-21
+-2.6221625417930977e-22
+1.207224059787828e-21
+-8.854348071920746e-21
+-2.9739727960695573e-21
+2.5101493621563466e-20
+-4.220689075551824e-21
+-1.0091603473146938e-21
+-4.372166525225597e-21
+3.968192193570012e-21
+4.6438953564492665e-21
+-6.75289572572978e-22
+-6.553441800527931e-21
+-2.142283402943262e-20
+7.432641733852887e-20
+-3.3075643973545365e-20
+-3.908841984619332e-21
+9.595295105615121e-23
+3.2489477457420007e-21
+1.831951732742362e-20
+2.093004764185269e-20
+-3.920629308348213e-21
+-1.789398460105337e-21
+-7.745434912610986e-21
+8.650370502743998e-22
+-9.028211096921736e-21
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r1.3.txt b/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r1.3.txt
new file mode 100644
index 0000000..1fa81fd
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+5.631977554946621e-21
+2.4006102280329534e-19
+-4.902297209405456e-26
+0
+2.4095619435277095e-21
+1.1245587070627684e-21
+-4.91995244657883e-21
+-8.60580213003185e-18
+-2.1992179860113456e-25
+-2.5651893159002555e-21
+1.3773179923064412e-16
+4.1348933208064555e-26
+2.0413466230632516e-21
+-2.6851258094203366e-21
+6.792372344910956e-21
+-3.0684040659939734e-21
+0
+2.8082387996811403e-22
+-8.245528853233003e-22
+8.023369214015937e-23
+4.298040863167706e-22
+1.1458083226864665e-21
+-1.0306718142718273e-21
+3.824598960570929e-21
+6.639453236155674e-22
+1.0313895262342846e-21
+-4.362085261510107e-26
+4.183084953413265e-21
+-4.845137888069628e-21
+-7.789534180966111e-22
+1.6854032172708643e-21
+-2.5850574278196325e-23
+3.2286551887902912e-21
+3.948744109061898e-22
+-2.2658961069263533e-21
+2.1693521412800105e-21
+6.697606951372412e-21
+-9.615490954530738e-22
+5.539444385334363e-25
+4.082170992597115e-21
+-2.283950129064535e-21
+1.9615594135736728e-21
+-5.457085792216351e-22
+3.11309544703367e-21
+-2.7216899288958885e-21
+-4.045372728949702e-21
+3.0070453288261796e-21
+-5.130662312492916e-21
+3.2072771592329977e-21
+4.102309843945747e-21
+-5.1842834790728566e-21
+-3.780006098791963e-23
+-1.800369912331602e-25
+8.871563681644807e-21
+-5.114129409817504e-21
+5.067779928352011e-21
+4.352347229695364e-24
+-4.54373783987716e-24
+-9.325731426208132e-22
+2.0055837590754636e-21
+-2.7365845946630964e-21
+-8.856874787089282e-22
+-2.898274511398116e-21
+1.0195117170041315e-21
+2.8851881546393898e-21
+-8.201533790248014e-21
+1.08267612522954e-22
+9.919725449375425e-22
+0
+1.6610041912344853e-21
+-4.4849604449178663e-23
+1.2557814398647338e-21
+6.478445841875851e-22
+-4.104744066750867e-21
+5.411459592071306e-25
+-1.4924490010570573e-21
+-5.076237378692089e-22
\ No newline at end of file
diff --git a/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r1.8.txt b/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r1.8.txt
new file mode 100644
index 0000000..4b27142
--- /dev/null
+++ b/modes_wolfram/imode_a1e-06-m1-N1-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0
+0
+0
+2.8605017387914003e-22
+4.2097757114927452e-22
+2.2566866262162127e-25
+0
+-1.0671139032762287e-21
+3.8593128809462097e-22
+1.0041755797266357e-21
+2.3067290338657092e-21
+3.3171206634090936e-26
+-6.331953822778423e-22
+2.553681689461335e-21
+0
+2.624091271774616e-21
+-2.3156707727440794e-22
+1.657397807405868e-21
+-3.6563840958348504e-23
+-4.618129789822217e-26
+4.893735830807287e-22
+-9.981273206244276e-22
+-1.4026378709893537e-22
+-1.003762643040923e-21
+-7.395988490094998e-22
+-3.366057642761946e-22
+-2.483500931266622e-21
+5.628687152607641e-22
+-6.095603264897129e-22
+-5.721213715115388e-27
+1.7358305805318094e-21
+-4.105359606040526e-22
+6.494438641860603e-22
+1.0253765398271842e-22
+8.884257912213627e-24
+-1.0807489603234056e-21
+4.938672922371393e-22
+4.685277161885682e-21
+-1.611799917999597e-21
+2.154087760762606e-21
+6.190224429022678e-22
+-1.354168490663704e-26
+-4.349433606947633e-22
+1.6484495685848098e-21
+9.405083721692305e-22
+3.4476353942388764e-22
+-3.583693118341991e-22
+1.236241512114796e-21
+9.949333163238569e-22
+-5.501212621202137e-22
+0
+5.074639093496519e-22
+7.431142286607993e-22
+-1.3505840695312707e-20
+-1.0884060236129685e-21
+-1.3351830738653632e-25
+2.732770814865154e-21
+7.848232946707715e-22
+-3.1603998880122834e-22
+-1.0423365161303976e-22
+2.929629325171599e-22
+4.785532568577296e-22
+-2.5251577815872014e-21
+-3.9142211644175924e-21
+-8.380707427849027e-22
+-2.290337451405993e-22
+1.5946787300941185e-22
+1.2305162571761967e-21
+9.971065410472184e-22
+4.4905651068994256e-23
+1.620070565682888e-22
+-6.207585906229403e-26
+-1.0381428322110724e-21
+-1.6590003148684995e-21
+-2.7539449067207232e-21
+-4.570381543981366e-22
+-6.965007077589346e-21
+3.0520645317632707e-21
+-1.593838022785016e-22
+6.793700591432275e-22
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r0.4.txt
new file mode 100644
index 0000000..d2e6931
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-2.4033966376251265e-18
+-8.766107959691193e-18
+0.00002579406110482882
+-7.739045562764473e-18
+-1.2220108761271451e-18
+-2.4435916183357627e-18
+-2.8338500546642995e-18
+-2.7545536260128224e-18
+9.126270773600483e-19
+2.899147795616812e-18
+2.2440053442359054e-18
+2.4119384148230788e-18
+-1.8164968969725743e-19
+-4.117295634885758e-19
+-7.211017300283086e-19
+5.658782275144665e-18
+1.6585904831420536e-9
+4.286435872179376e-18
+-2.059165218916031e-18
+-5.749102488120848e-19
+7.998167541067375e-19
+-1.2532458364426069e-19
+-1.13598078369918e-18
+1.210402223410576e-18
+1.7159163873770717e-18
+3.1051552660167654e-18
+-5.148746018166918e-18
+-3.2660506839523377e-18
+1.0324621285678891e-18
+-1.0297836143468658e-18
+2.144761661907865e-18
+-8.770151425320505e-20
+-1.1677722297717368e-20
+-2.2331961615813687e-18
+1.1267013164911953e-18
+9.64829566938869e-19
+2.426564519016665e-18
+-3.030102790895568e-18
+-6.7576676988371445e-15
+-2.2536368284933197e-18
+3.478768799243295e-18
+2.693051920288892e-19
+1.910414957872451e-18
+-9.320838646321558e-19
+5.109138956076654e-19
+-8.893505029012127e-19
+-9.959854281082554e-19
+1.2023413483412467e-18
+1.3836287975536912e-18
+2.5398313942693166e-18
+7.768297150766186e-19
+-3.36056061842989e-18
+-2.5618184753364355e-18
+3.742130142809017e-18
+9.689246279588894e-19
+-3.3372713482834596e-18
+-2.165688504224844e-18
+-6.389424228144368e-19
+5.774915951605272e-19
+6.04505659605284e-19
+-2.6604258489782694e-19
+1.263796008167838e-19
+1.8318367029384288e-18
+3.395996725678932e-19
+-5.918821079759005e-20
+2.2077254093644827e-19
+-1.199246348681803e-18
+-2.1747858495263994e-19
+4.397361784939472e-17
+1.735552621143315e-18
+-1.3870701144711562e-18
+-8.281370401362921e-19
+6.543846505422316e-19
+1.1140534147325298e-18
+1.580118663202124e-18
+-2.9480978110270743e-19
+-2.898407779161307e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r1.3.txt
new file mode 100644
index 0000000..615a051
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+1.399999089213131e-19
+5.966070749083673e-19
+-3.108924969018705e-9
+1.1193680416863506e-19
+-2.233336492287612e-19
+1.8308873364806814e-19
+6.247845597654478e-20
+4.594615644335571e-19
+7.858706012876428e-19
+-4.013751339780807e-19
+-4.028684966441491e-19
+-2.224848378229951e-19
+-2.691377717634298e-20
+7.535669686300104e-19
+-3.434616252977058e-19
+-3.7195575675119687e-19
+-4.449947774989991e-15
+2.68665234980903e-19
+-2.2881845385138216e-19
+3.197890856983894e-19
+-1.8358775488932035e-20
+-7.394494126940309e-20
+6.587101235195747e-19
+1.5536117553886064e-19
+1.1911184392672174e-19
+4.659567796786078e-19
+5.940496959970045e-19
+2.0704582044354024e-20
+-3.773127434909005e-19
+-3.310176645871126e-20
+-5.857968914985753e-19
+-1.3891735810506063e-19
+2.008615042805624e-19
+3.125769622076152e-20
+9.876335610574341e-20
+2.4825905445502095e-19
+-7.1606676281033e-20
+-5.07309670759606e-20
+-2.7042077687643743e-18
+2.0263250246539015e-19
+2.0866924771256018e-19
+7.12152524676331e-20
+2.4137736886876446e-19
+3.411579511910756e-19
+2.0372534795432108e-19
+3.070732729364991e-19
+3.6334938052888784e-19
+1.3818306830009985e-19
+-1.0942996556860768e-19
+-5.47948416955699e-19
+-1.7658447890901344e-20
+3.5222373815593365e-19
+4.153980693175185e-19
+1.0643000191354743e-19
+-4.521334184110431e-19
+6.991265700078861e-19
+1.215149205343071e-19
+-5.385759316621482e-20
+-4.0670556324209355e-19
+-3.2163003466617266e-19
+2.698259741181188e-19
+3.463618226796485e-19
+-1.8400938434455334e-19
+-4.403291206800233e-19
+-4.2820804306665444e-19
+8.968951276284665e-20
+-1.5715938233148125e-19
+4.220947164586721e-19
+-2.9433526989347383e-18
+3.201653263059465e-19
+5.641614347922383e-20
+-2.038629113617526e-19
+-2.802319770069472e-19
+-2.747206599936139e-19
+-1.6872087191967009e-19
+2.1160897751454905e-19
+2.9356282299002606e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r1.8.txt
new file mode 100644
index 0000000..139a89c
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.625600248405586e-19
+-1.1050661309218734e-19
+-3.7399520968945205e-12
+-1.2632927903924626e-19
+-5.496292655017151e-20
+-8.82930245322569e-20
+3.0627146659742034e-20
+-1.8377422436035002e-19
+1.5864007752425524e-19
+-1.4069635190846473e-19
+-5.453282490108395e-20
+1.507798142855966e-19
+2.682343626298966e-19
+-2.6839592167983367e-20
+-4.253528490326293e-20
+-3.9772451979214743e-20
+8.113367518904196e-18
+1.6569436421986758e-19
+7.078145281305873e-20
+-1.870049691646657e-19
+-3.409012738962308e-20
+9.18756970463337e-20
+-2.473352150746829e-19
+1.1407003692477711e-19
+1.1213425217142458e-19
+9.188974413384044e-19
+-1.235223077950727e-19
+7.362936942241467e-20
+-2.1375682831755013e-19
+-1.4007158422298624e-19
+1.0466116790954719e-19
+-4.916589288012714e-20
+-6.923229073863031e-21
+-1.842181709213212e-19
+-5.80663313560121e-20
+1.63197019973606e-19
+1.4526707470498081e-19
+1.879329090027711e-21
+8.027819919328399e-18
+1.303155089977145e-19
+2.0927327112020275e-19
+1.5707310300741687e-19
+2.617015578585077e-21
+-3.7263634458892177e-20
+5.82722284523437e-20
+-3.0103446873002315e-21
+-1.1411384208074044e-19
+9.695771019109793e-20
+1.4894226673851966e-19
+-8.021793267043924e-20
+-3.694767843124908e-19
+2.2801420543362694e-19
+-3.839186715545896e-20
+5.682386109017826e-20
+2.5505031458612493e-19
+3.096409150463707e-20
+-1.826861772401732e-19
+-1.2001283848681631e-19
+1.1460118510294084e-19
+-2.112392752539927e-20
+-5.368831017355788e-20
+-2.5232780983678497e-19
+-9.31140312095846e-21
+3.146209485117147e-19
+1.4419846323079062e-19
+-4.9251745313936903e-20
+-7.195540958117928e-20
+-1.5939575819782967e-19
+2.8465589831940533e-18
+-6.560710883938437e-20
+1.1593848577444816e-19
+5.812777170180197e-20
+8.889790707290391e-20
+1.719773856878423e-19
+1.4278749188018504e-19
+-2.1637859410155373e-19
+-4.088740906064202e-21
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l1-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l1-r0.4.txt
new file mode 100644
index 0000000..3f623dd
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.7937198008365957e-19
+-7.391239276243077e-19
+0.00025981011017507953
+-1.2790859248029978e-18
+-3.350081480839762e-19
+-4.5873087579251264e-18
+-3.1718803071162382e-18
+-4.180862190213774e-18
+-4.3121123855736345e-18
+4.200396680764673e-18
+3.521916672569078e-18
+4.072764986994425e-18
+-7.196504416435843e-19
+-5.696476068478094e-18
+-4.36249926540669e-18
+1.7580234994712008e-18
+1.0609629094998601e-8
+1.1264744105094144e-18
+-5.241515151045353e-18
+9.14770625622425e-17
+-1.6294564712233088e-18
+-2.7628626552659175e-18
+-3.659383750617734e-18
+3.3497278611278957e-19
+3.1307462696152013e-19
+2.604912517298917e-18
+-5.4098306892682554e-18
+-2.2603405069726026e-18
+-3.5408293300944903e-19
+1.739057902386585e-18
+4.3374770518769606e-18
+2.1244665787837234e-18
+-2.1316417469809873e-18
+-1.897140646533845e-18
+-2.3362310194518927e-19
+-9.917676341648475e-19
+-1.877171008493645e-18
+-1.319101614115863e-18
+-9.628787538205325e-13
+-9.96186846587412e-19
+-2.9607747158059675e-18
+-6.811294676976023e-19
+-1.04076857288157e-18
+-2.2064036452256117e-18
+-1.7343794787019101e-18
+-2.126802123243267e-18
+-1.6905205984031984e-18
+9.126226474201272e-19
+1.7572260973606997e-18
+-1.0170185631339475e-20
+3.7403783810667827e-19
+6.54449915092562e-18
+-3.0660872154931562e-18
+-5.412559558109068e-18
+1.689655367482468e-18
+-7.407609180565501e-19
+-1.6413438838063084e-18
+3.774667820500783e-19
+1.7971276357490326e-18
+1.929614259329507e-18
+-1.9326712345301675e-18
+-3.5321233833943404e-19
+-2.0961888925557153e-19
+-6.860486154808143e-20
+-1.466544697147062e-20
+2.410978484646908e-18
+2.9025072862771197e-18
+-1.0852311851675204e-18
+-2.2932358255726114e-18
+-1.079983551361484e-18
+2.5160824184974598e-18
+1.6035989280595233e-18
+-5.7132951318731345e-19
+-1.5707583067775196e-20
+-5.398338229578356e-19
+-5.889486347181034e-19
+-1.7826992317608146e-18
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l1-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l1-r1.3.txt
new file mode 100644
index 0000000..b5c412c
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.0336364792126982e-19
+2.5596608388272053e-19
+-7.149358552255082e-8
+-2.664322095845593e-21
+3.3188774452854237e-19
+4.637259978531656e-19
+-5.944127297351001e-19
+-9.980136491208413e-19
+-1.3004397861865102e-19
+8.623992068438852e-19
+6.933777200513697e-19
+-3.881393611578894e-19
+7.457343495674609e-20
+-9.151129077737543e-19
+-7.11006872762674e-19
+5.331044869353826e-19
+1.0619481957203226e-11
+4.2506812228463187e-19
+-6.897103227171492e-19
+-7.820199244535679e-19
+2.3217205589853506e-19
+5.2944343764690794e-20
+-9.612778230252154e-19
+-5.033572690117601e-19
+1.554876350159209e-19
+1.2484504547507546e-19
+1.9680115697739124e-19
+-1.640852517519819e-19
+-2.50664357442651e-19
+1.0219226617230073e-19
+8.326079957757874e-19
+7.247611932141145e-21
+-1.3490491659548044e-19
+-7.547307273374448e-19
+9.593206151450998e-21
+-1.6953585419302995e-19
+-1.4191041280271699e-19
+1.765979385610634e-19
+-1.827101012505971e-17
+4.406399879552244e-19
+-1.3845781747147034e-19
+-4.474311980871409e-19
+1.2757126843854646e-19
+-7.472598499471805e-19
+-2.3753429622467555e-19
+-4.1143635704199416e-20
+-4.511265782488011e-19
+9.30186780827228e-20
+1.8448578505614632e-19
+-3.042150802331251e-19
+-2.3728988858747313e-19
+3.407521209537e-19
+-1.282978682002112e-19
+-5.489117275964861e-19
+1.8068749305428625e-19
+3.956364310526135e-19
+-1.0165293673887727e-19
+-1.547639254891516e-19
+4.506744428607874e-19
+4.3631540531785336e-20
+-8.3090791747376e-20
+-2.477352854481034e-19
+-1.1066810338333156e-19
+1.873021266311491e-19
+1.584077926045605e-19
+-2.010960705687387e-20
+-1.2234397078507083e-21
+-1.6328171444933984e-19
+-7.024836648001212e-18
+8.831910797805246e-21
+8.801559570114372e-20
+9.785505449030403e-20
+2.2778549772312075e-19
+1.970731644973955e-19
+-1.3467075965669418e-19
+-2.1402366479150762e-19
+-9.033923005233613e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l1-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l1-r1.8.txt
new file mode 100644
index 0000000..1fbb4cd
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.0255641022265411e-19
+-1.9210694335186332e-19
+-3.781145166763201e-8
+-2.2967006719010943e-19
+-1.5572759978850512e-19
+1.1327583731838026e-19
+1.012266370125152e-19
+-1.0151295217217722e-19
+-2.5294285269321925e-19
+3.3991068763145175e-20
+2.0693519223102273e-20
+-3.9887630606490834e-20
+1.1564876848368592e-19
+-1.8101237995287318e-19
+1.2547275923772957e-20
+7.409708312928568e-20
+-2.1037244431934385e-13
+3.849962234642042e-20
+-1.0810500165844379e-20
+-6.57948849824894e-20
+1.4246393597690526e-19
+1.4910647498448667e-19
+-1.4230597557995996e-20
+8.184490163876433e-20
+-5.583313472912586e-20
+9.036269847493984e-20
+1.0677013409817494e-19
+3.7692588105427034e-20
+2.98277608997246e-20
+-1.525896069320478e-19
+1.0971520080924489e-20
+-1.800850602010517e-19
+-1.8665434727629206e-20
+-9.728556729574898e-20
+7.238064751239861e-20
+-1.329766982050502e-19
+-8.078495228066985e-20
+-1.8073799772173048e-19
+-6.069062899312209e-18
+-1.5531037158389986e-20
+-8.261786173346518e-20
+-7.990760607202232e-20
+1.4651809038118253e-19
+-2.649506192475517e-20
+2.1535005051932353e-20
+3.810432937222881e-21
+-3.606105075938891e-20
+3.633854524244021e-20
+-4.2855318667635353e-20
+-1.0365334865012745e-19
+9.315568484465604e-20
+-1.8795689016918598e-20
+-5.983147636355373e-19
+-1.0292573081613287e-19
+-1.7236643070626947e-19
+4.0742141298794357e-20
+-4.4062873266453356e-20
+-7.407118678214232e-20
+-1.6003744827121507e-20
+-3.37383949743722e-21
+5.626169203655915e-20
+-1.266758041774988e-21
+1.5315890631459855e-20
+-1.719379196450179e-20
+-2.4866674090103924e-20
+8.743419718654726e-20
+5.391221515746977e-20
+-8.243571034257054e-20
+-1.8314227499328407e-18
+-1.02955631093065e-19
+7.706665476307992e-20
+1.2979303350811132e-19
+-7.805150037256824e-20
+8.142590254871194e-21
+-5.965073643035861e-21
+2.8146068989022874e-20
+4.3401631173522477e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l2-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l2-r0.4.txt
new file mode 100644
index 0000000..cabcd09
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.02428962992957e-18
+7.596511589873623e-18
+0.0012766776449135379
+9.632134421375783e-18
+3.497956558945867e-18
+2.782648815518186e-18
+7.283464259872318e-18
+3.63223609650405e-18
+-2.4817006563366932e-18
+-6.918232586566879e-19
+-6.962677000879353e-18
+-2.8440810380706617e-18
+4.35126946141067e-18
+1.80410573139653e-18
+2.530974151065252e-19
+-1.7326191284984722e-18
+4.671735534657466e-8
+-1.974619088506986e-18
+-5.572682699545245e-19
+1.7446231735478417e-18
+5.0801462756066705e-18
+4.165685266127171e-18
+1.84396425639301e-18
+1.3822188035761092e-18
+-8.373582428098801e-19
+-4.1782547101278534e-20
+3.7710436207353485e-18
+1.7557404809805544e-19
+6.441867543603716e-19
+-1.2787815223375782e-18
+-2.6088019205391412e-18
+-4.253491420343451e-18
+5.022362746736166e-18
+1.729633420077462e-18
+1.764446556927675e-19
+4.599918299182885e-19
+-8.474260906898103e-19
+6.259937439678803e-19
+-2.7544765950027727e-10
+3.4920256739538616e-19
+3.6178894759599303e-19
+-2.1447504760479148e-16
+2.955640405743851e-19
+1.9079609456395534e-18
+4.588430414835748e-18
+1.641896647250647e-18
+4.949981134415326e-19
+-2.213803312785672e-19
+-4.485606074431119e-19
+9.180116612562505e-19
+3.5706409193709014e-19
+-4.5016227726319834e-18
+-1.2691729923421623e-17
+2.926837873417178e-18
+1.1501119236937297e-20
+-1.1520243652699523e-18
+5.95828043841114e-19
+3.126513980624028e-19
+-4.958252940540856e-19
+-1.6365251431478807e-18
+-2.278308666410147e-19
+1.7469332822035492e-18
+2.9464578220651114e-18
+1.4868464558772409e-18
+1.1163794983138172e-18
+-1.966036469266289e-18
+-2.67924204948944e-18
+1.1550373706511767e-18
+6.450915576016066e-17
+2.553607466985928e-18
+-1.5797243169619929e-18
+-1.7095552650689624e-18
+4.929185813815743e-19
+1.008589240494037e-18
+2.7494428905981635e-18
+1.4961509388364068e-18
+-3.630683455876068e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l2-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l2-r1.3.txt
new file mode 100644
index 0000000..d5441d6
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-7.870023822497957e-20
+8.704338867834255e-20
+5.760864856240312e-6
+1.306308438762118e-19
+-1.2822759985340968e-19
+2.3484122879475017e-20
+1.6984137626033325e-19
+4.416894507391812e-19
+8.577928092648136e-19
+-2.277355405377665e-19
+-1.7876112329943397e-19
+2.474448957776897e-19
+-5.606154563032204e-20
+4.077617590359179e-19
+-5.643584485750228e-20
+-4.3462980025316495e-19
+3.0049620807776814e-10
+-1.3615056840498986e-20
+2.463337644172451e-19
+4.3307775093007405e-19
+5.867706487782057e-20
+-7.377210293054177e-21
+5.086063718913722e-19
+5.565193613074343e-20
+-2.8913134129389575e-19
+4.9620031706430187e-20
+3.5446571083790794e-19
+1.3375135365649968e-19
+9.579008452497706e-20
+-2.470100895811709e-19
+-5.14854945937386e-19
+-3.5411395228241977e-20
+9.522520013816647e-20
+2.041820088038452e-19
+-1.5217822674897046e-20
+1.3664708356767481e-19
+-8.220758741978098e-20
+2.7844340522258344e-19
+-2.45680209865712e-15
+1.8382558829857817e-19
+4.203032646882938e-20
+1.957884811124732e-20
+7.517635834262418e-20
+2.735482020562829e-19
+1.4503769350868302e-19
+7.855641219597192e-20
+2.1830789189243134e-19
+3.147455249326319e-20
+-1.0623802431975606e-19
+-2.0831668033483044e-19
+-9.585880756268502e-20
+2.650028188678478e-19
+-3.149509310847318e-19
+-2.7586459211476695e-19
+4.9137578614158633e-20
+1.5898402972216096e-19
+5.419312557232374e-20
+-7.304219358814615e-20
+-2.566317441142134e-19
+-7.242938200121507e-20
+2.394325981823023e-21
+1.3246080003572637e-19
+1.9650709426962864e-21
+-1.3546267725277252e-19
+2.0451575356279048e-20
+9.629470589610632e-20
+1.6785294392768088e-19
+-3.2903481838678937e-19
+-1.2051943356329727e-17
+-2.3259892956222644e-19
+5.64926230517358e-21
+2.2451771748205575e-19
+4.435133064416782e-20
+-9.088341957575513e-20
+6.838880504169813e-20
+1.4265390600173438e-19
+4.3670897042160527e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N1-l2-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N1-l2-r1.8.txt
new file mode 100644
index 0000000..8e61c66
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N1-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+8.008058617865464e-20
+2.3794884295853532e-20
+6.812533037621784e-7
+-2.2619370172536182e-20
+8.911258340402465e-20
+1.0736211753577587e-19
+-4.5314369209984146e-20
+-3.1778844492912427e-20
+3.321500387348009e-19
+5.543303861438519e-20
+-4.940948515996703e-20
+-8.729273743733268e-20
+3.9257432878618367e-20
+-5.72860055814478e-20
+-8.750821248380907e-21
+1.3216880527949515e-19
+5.242039058230584e-11
+2.865864942899822e-19
+-8.06900793496127e-21
+-6.364557046356008e-22
+1.373281698668842e-20
+9.035218867673709e-20
+1.508102768109609e-20
+-7.757615702488907e-20
+1.381047309033581e-19
+3.224832248179426e-19
+-1.809213054691162e-19
+-2.799665807724174e-19
+-2.175261413755132e-19
+7.849712337933232e-20
+-4.37523767558777e-20
+-9.724315651789717e-20
+5.289930846553997e-20
+-8.182559153549487e-20
+1.300257846841427e-21
+4.993558980100923e-20
+2.0594970265860027e-19
+8.537698809791473e-20
+-1.579000585657109e-16
+-5.025403979655794e-20
+4.8246262423564336e-20
+9.463887125553416e-20
+5.116294973104033e-20
+-1.8163690717185407e-20
+5.957255887576891e-20
+1.1561764338975791e-20
+9.981358230510805e-21
+4.9896384348031057e-20
+1.7055009556188074e-19
+1.0126645881198496e-19
+-6.557769312224776e-20
+3.1463338137511347e-19
+1.0233707932504719e-19
+-2.6336382187638505e-19
+1.5256797098915072e-20
+-1.0038493489695757e-19
+-2.1201964204301318e-19
+-9.775058254829086e-20
+-2.527151478036006e-20
+-1.1605024107866468e-20
+2.6350843308073978e-20
+-5.264662094427636e-21
+2.473911419625708e-20
+1.0823654760964673e-19
+1.1928270135380852e-19
+4.2309495078804624e-20
+1.7633831128526616e-19
+-1.183378672238169e-19
+2.0446193512418625e-18
+-1.2382184971453507e-19
+1.031713842729639e-19
+1.0831936583730433e-20
+1.0989862407111069e-19
+1.0152243082189177e-19
+5.302170211562941e-20
+-3.2159328187641213e-21
+2.1290433432635852e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r0.4.txt
new file mode 100644
index 0000000..5685829
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.612618873812668e-18
+-2.4252174553891223e-18
+0.000025885588396935725
+-5.2110978587654e-18
+-3.2020335219856337e-18
+-5.930552051808656e-19
+-4.0553011363118994e-18
+-8.237778810261989e-18
+-6.341649649309241e-18
+5.398656719963583e-18
+2.2588193929119514e-18
+2.3040218471699966e-18
+-8.35090527160566e-20
+-2.6172191036573277e-18
+-5.88657933724049e-18
+1.7176600841083335e-18
+2.953258314968109e-10
+2.9177141746582945e-18
+-2.925929525707018e-18
+-2.357768734651242e-18
+2.2483221930576665e-18
+-2.3442391617571717e-19
+-4.4549695792888395e-18
+-2.15239410911868e-18
+3.250980849058905e-18
+7.911900668189067e-18
+-5.4139426040932565e-18
+-6.675052944220242e-18
+-4.2578465456555886e-18
+1.1233512867091438e-18
+3.853210779702691e-18
+9.815123523279917e-19
+5.249420516159522e-19
+-5.400918645348609e-19
+-8.646384526167258e-20
+5.04606870911617e-18
+1.4466606193897826e-18
+5.164027559598376e-19
+1.7162488291973053e-15
+-2.1233296190317693e-18
+1.0263605858757566e-18
+4.83261992192569e-18
+4.0971744664854056e-19
+2.6607474154413994e-19
+4.692794138360339e-19
+7.299620751596703e-20
+-1.591856759991035e-18
+-1.8124576706439013e-18
+2.7204253947098033e-18
+1.5065349506560912e-18
+-3.540086935494724e-19
+-2.717225653305295e-18
+6.443844505267717e-19
+1.7416039643120232e-19
+3.5852375552551652e-19
+-1.5150181014281288e-18
+-3.702945408120249e-18
+1.0072082010690686e-19
+1.5571631604328587e-18
+2.767125944143016e-19
+-2.75442561981303e-19
+-1.7022543621874162e-18
+2.627257715872483e-19
+2.6297880096674944e-18
+2.0152808058782551e-19
+-1.6282784626334567e-18
+-3.827321784288583e-18
+3.3023006335265553e-18
+-8.98004809216553e-17
+3.1701557389366417e-18
+-2.5242972396336034e-18
+-4.440080121467732e-19
+5.419563296355554e-19
+2.4767589242609366e-18
+2.997750102777394e-19
+-1.7206108441484633e-18
+-5.516087002034367e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r1.3.txt
new file mode 100644
index 0000000..addd8e7
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-8.108726039485447e-19
+-1.0013971946618822e-18
+-6.6601379478073674e-9
+-5.228134400383502e-19
+-7.136733738816664e-19
+-2.318291115825526e-19
+-1.9061490056999624e-19
+2.9173870977808605e-19
+-6.274782795202329e-19
+-3.955958522180429e-19
+2.770516239607102e-19
+9.758713396146205e-19
+-1.2741686591787968e-19
+5.1399988190648915e-19
+6.520803993617611e-19
+-8.496125906224424e-19
+-1.8471894455750058e-14
+-6.302772701942887e-19
+-1.1861868395986065e-19
+3.085098536722887e-19
+-2.6071523479143e-19
+-3.8851027088326273e-19
+8.304509138168409e-20
+-2.432643984710613e-19
+-4.4888149334016175e-19
+-1.1172555564956222e-19
+-4.2980649980200027e-19
+6.741362986221458e-19
+7.596107470139126e-19
+2.940264631759686e-19
+1.494689166098977e-19
+3.5307863517551057e-19
+-5.147507579348116e-19
+-1.9793122604827093e-19
+6.170916559019982e-20
+-3.552575178672418e-19
+-3.7760901955303655e-19
+4.109162369395927e-19
+1.5931566284813771e-18
+-2.2990213366011863e-19
+1.1194994722240476e-19
+-2.1153686542941807e-19
+2.558201871253911e-20
+1.241484149683404e-19
+-9.949320801906513e-19
+-3.5729433718601555e-19
+5.1249913984423833e-20
+-1.227001152304872e-19
+8.212146289305386e-20
+3.498262260343342e-19
+-1.4607428046707946e-19
+-6.410248639914652e-20
+1.3330699934001958e-19
+7.61759072793516e-19
+2.05649312099931e-19
+-2.6728378616867927e-19
+5.1882519934245985e-19
+1.5155100170142436e-19
+-1.668666545638965e-19
+3.7965390010413896e-19
+-3.1691435099835146e-19
+1.1512051425347498e-19
+-7.711930826238642e-20
+1.2953200551826898e-19
+-1.8582544146911552e-19
+-4.538410241374241e-19
+8.443091709713259e-20
+-6.64905460990788e-20
+-6.357743959527157e-18
+-1.5902043617042966e-20
+-2.3296108891427293e-19
+-9.19226522600317e-20
+-1.1422829459626315e-19
+-2.815636766027949e-19
+-1.1877172999318014e-19
+-6.839571430202462e-20
+-3.347134327799857e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r1.8.txt
new file mode 100644
index 0000000..c70e4f4
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+1.240664050390221e-19
+-8.74392203703795e-20
+-1.2334286299798486e-11
+-1.5030720405977442e-20
+2.191678982155883e-19
+-1.1693580280347898e-19
+-2.8654545723174974e-19
+-1.5885508911978158e-19
+3.261437429411262e-21
+4.009529180205419e-19
+1.998289508683569e-19
+-2.3474123036302365e-19
+-1.8024419136263808e-19
+-4.1963278817067373e-20
+-2.2601146564985457e-19
+3.281395340211817e-19
+-1.9345104313336323e-17
+4.380440208650755e-19
+3.135885946580838e-19
+-2.476645596416518e-19
+1.777158136519953e-19
+9.522120389484115e-20
+1.2822776856117502e-19
+-1.2221115647096118e-20
+4.50099312847739e-19
+6.441208636464911e-19
+-3.239935394264438e-19
+-6.7951441886188105e-19
+-6.37440436398261e-20
+1.6840082030179766e-19
+1.6063189625227888e-19
+1.42647850336239e-20
+1.7591469593344656e-19
+-2.074673366088809e-20
+1.0902149301638645e-19
+4.803518180615933e-19
+5.5152220787545e-18
+-2.573669415793763e-19
+-2.771944374563453e-18
+-1.6326752101307533e-19
+2.2277070405430353e-19
+3.967097330141359e-19
+-1.220836608937328e-20
+8.06154099718812e-20
+1.7423525981625725e-19
+5.835462803487156e-20
+7.336977825827843e-20
+2.8668674270305213e-20
+1.5751993333379822e-19
+1.094410135553301e-19
+-1.7729339835719435e-19
+-3.083882126440178e-19
+4.656203248069553e-20
+2.16571069848878e-19
+9.018353719622542e-20
+-2.754639864889671e-19
+-2.2385413466881955e-19
+-5.60835953927881e-20
+-7.972194545114017e-20
+-2.311124727131067e-20
+1.1524381391248343e-19
+-1.4386218831093238e-20
+1.9378115843259447e-21
+3.900205959877555e-19
+-5.205274961737882e-20
+-3.172432462064829e-19
+-3.498228621042424e-19
+1.377652479433639e-19
+9.904159698304548e-18
+2.2892551112701814e-19
+-1.6295104000172428e-19
+-1.404084289367312e-20
+1.1773684377363446e-19
+2.882968477021209e-19
+6.980978723953379e-20
+6.436293871932099e-22
+1.524363109067353e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l1-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l1-r0.4.txt
new file mode 100644
index 0000000..b7f4ae5
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-3.780956553196184e-18
+-6.731113992249727e-18
+-0.000060896228292136735
+-5.171746602279568e-18
+-8.515369456896516e-20
+-6.781274431390096e-18
+-1.7642687130959761e-19
+2.543264400606565e-18
+-9.2634798746956e-18
+1.0080493532791555e-18
+-2.4171830500993947e-19
+3.8969810418159344e-18
+-2.8367943006571055e-18
+-2.2257320973239965e-19
+4.6940106108486745e-18
+4.682417157575861e-19
+5.962597848862332e-9
+1.7680712623718824e-18
+1.6065199936081322e-18
+-2.5585275372693933e-18
+-2.780599889140892e-18
+-3.119757692165317e-18
+-8.147933760848929e-19
+1.832385382178493e-18
+1.1778344683331381e-18
+9.770185902527208e-19
+-8.017504335451874e-18
+6.614524952861909e-19
+-1.5208608852225486e-18
+-3.572082281588275e-18
+2.6809726018037803e-18
+1.2555770382039344e-18
+-2.0298807504849692e-18
+-4.024285378858764e-19
+3.0818541051490295e-18
+-4.526352991405481e-20
+-2.4886514550239763e-19
+4.764572115629168e-18
+4.3036978633300425e-13
+1.7037678959132351e-18
+-2.5533855757866106e-18
+-6.185230622656076e-19
+3.511409927826006e-18
+-2.2201262943127246e-18
+-1.6792568800020638e-18
+5.258916549591631e-19
+-3.6972429800736737e-19
+2.8240525138989152e-18
+8.22696880042684e-19
+-6.275371306989304e-19
+2.788818218524497e-18
+9.10743225213747e-19
+-6.687007481217481e-18
+-1.0019729749722205e-18
+-3.4676734767203005e-19
+8.697532722356592e-19
+-3.135593548004762e-19
+-3.530982778877812e-18
+2.724062921453505e-19
+-4.6782853904161586e-20
+-2.3671748121917357e-19
+-3.0803316792316256e-19
+1.388028610005952e-18
+7.420469771139169e-19
+1.0946399510450048e-18
+7.685095932022621e-19
+-2.6295385371646272e-18
+1.5879241462573275e-19
+6.504970174685181e-17
+1.4422892800451695e-18
+-1.815866792140962e-18
+4.618732780709345e-19
+9.74923341761124e-20
+4.701628427302405e-19
+1.344143336466079e-18
+-8.894656583170456e-19
+-4.753558826158484e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l1-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l1-r1.3.txt
new file mode 100644
index 0000000..1d0be51
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+9.46690278049754e-20
+1.0639337917855117e-19
+2.515110191163406e-7
+-1.8146292782457944e-19
+-1.058220914121354e-19
+5.342387829880497e-20
+4.1303110633303385e-19
+-4.557980306749932e-19
+3.708646698793483e-19
+1.387525554946549e-19
+-3.9852123394020855e-19
+1.0089488265691889e-19
+2.731856416852175e-19
+-1.9172532066820514e-19
+-5.929775487541008e-20
+1.783492842896106e-20
+9.247866900349426e-12
+-4.6165647920226316e-20
+4.7441877745470533e-20
+-4.126262046543634e-20
+1.1662048517579195e-19
+2.737894350647672e-19
+-1.3908403075757384e-19
+1.4628919354166874e-19
+3.1769514315655483e-19
+5.238819808868743e-20
+5.300160033427466e-19
+-3.0604642307127154e-19
+-2.6365579078322212e-19
+1.4557648050872627e-19
+-5.000626689135563e-20
+-3.927333025601587e-20
+1.8344589250549974e-19
+1.0848694745952874e-19
+1.005769843843764e-19
+8.482126166677261e-20
+1.3575822306952403e-19
+2.6380158459735886e-19
+-1.7194297520490075e-17
+2.8102144607974993e-21
+-1.5575414494534403e-19
+1.910971359619015e-19
+5.953816716563037e-20
+1.1203834725312287e-19
+1.9317676657267498e-19
+1.534353861836862e-19
+-2.541944278510067e-20
+-2.712111971059704e-21
+7.218318888779422e-20
+-1.3282534737701804e-19
+3.120479887886942e-19
+1.5367805706471969e-19
+-3.8842325859140554e-19
+-5.723542865686901e-19
+-4.195631739157804e-19
+1.0087369342386432e-19
+4.127435043582197e-20
+-6.189375459915692e-20
+-3.66334366454283e-20
+-9.46920612307433e-20
+7.999490513059577e-20
+-3.861902716031216e-20
+1.2070243732180788e-20
+-4.4664076001546755e-20
+-1.3517387489671787e-19
+2.5114484880824524e-19
+2.620565291573175e-19
+-2.533798811298407e-19
+-1.6944542558061943e-18
+-2.400890007334865e-19
+1.7633855766230407e-19
+2.015947671779512e-19
+-9.344460985911512e-20
+-7.327790775098109e-20
+3.803797414470408e-20
+3.286649167877876e-20
+6.871490968908723e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l1-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l1-r1.8.txt
new file mode 100644
index 0000000..3dc4850
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+1.3588844328002232e-19
+2.7384350553496434e-19
+-3.498116417066916e-8
+3.699060434819946e-19
+-3.13830258874468e-19
+4.042817104364018e-19
+7.085214090872474e-19
+2.682590045449238e-19
+1.5300821161689114e-19
+-5.984484631643897e-19
+-5.237013392621563e-19
+-4.246363582386862e-21
+2.582509372259671e-19
+3.6440947980841964e-19
+3.3581751684837807e-19
+-1.60141163310656e-19
+1.0404519657284916e-13
+-2.332135605022187e-19
+3.0747779106468654e-19
+4.512579034704119e-19
+2.220601522701282e-19
+2.1307150235827666e-19
+4.953971933519661e-19
+-1.5515768446335958e-20
+-5.960169366732216e-20
+-2.706997409934712e-19
+1.9978393957010191e-19
+4.507388088619436e-20
+1.201078035135138e-19
+-1.2819433249094213e-19
+-4.905625185615336e-19
+-2.927101594439311e-19
+1.866335362925752e-19
+4.311853674739639e-19
+1.1322564304561413e-19
+-1.0349765815310527e-19
+-3.7726013795433706e-20
+1.6106794163883925e-19
+6.6960787089374296e-18
+6.058486446831071e-20
+-5.693414928293802e-20
+-3.398056744677487e-20
+7.089798856547616e-20
+3.7174107904745815e-19
+1.6969631390327138e-19
+1.748280588169162e-19
+3.565886763423738e-19
+-2.755824912141437e-21
+-7.10180923227517e-20
+-7.898456459687977e-20
+1.1855926243788414e-19
+-3.509935053080817e-20
+2.6321145585378763e-21
+-5.844480807145216e-20
+-4.6067531899946274e-20
+6.412633405558636e-20
+1.1392925310333778e-20
+-2.3790997193209387e-20
+-4.2816376757308397e-19
+-1.7472741258523608e-19
+1.4399440794737623e-19
+2.5893515781470334e-19
+1.9833698903683213e-21
+-9.612934913931367e-20
+-9.216032557470198e-20
+7.932589675885098e-21
+-1.9951413308561918e-19
+-1.9597094956234286e-20
+2.814228660065881e-18
+-1.5566599401796713e-19
+-7.041613788525716e-20
+1.7312619609889942e-20
+-1.0718074566567334e-19
+-4.8926638672228375e-20
+-1.949616882408323e-20
+2.2136174474376357e-19
+1.7334453219872864e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l2-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l2-r0.4.txt
new file mode 100644
index 0000000..a4d298a
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.293688293367678e-18
+-1.878136741858801e-18
+-0.0017565768793678929
+-2.990754222746727e-18
+2.343429145142329e-18
+-8.966679199105448e-19
+-9.058487975292708e-19
+9.787650713894793e-15
+3.316133988500586e-18
+-1.0720260738687239e-18
+1.4529526721167437e-18
+2.4616895029578104e-21
+-8.846862087377142e-20
+-1.6606345628716575e-18
+9.094685398898029e-19
+1.7410431358567122e-18
+1.0843755133153904e-7
+2.0890942678394246e-18
+1.3146348388080767e-18
+-2.0911390583136557e-18
+7.213411988156427e-19
+1.7933937424639682e-18
+4.5078034661689796e-20
+-7.424243782683942e-19
+9.327129354880024e-19
+-1.6178991037047179e-18
+3.01607256693575e-18
+-8.483564362343852e-21
+2.9437041895047106e-19
+-8.612935410147145e-19
+-8.95710871941821e-19
+-1.6400146045619356e-18
+-4.10395403878589e-18
+7.733400985661988e-19
+2.291306323396255e-19
+-1.1219182415343355e-18
+-4.053846745999878e-19
+2.0096470855213096e-18
+4.224443352420066e-11
+2.7474307737581282e-18
+2.165161796969801e-19
+-1.909872540648118e-18
+1.9144101626828996e-18
+6.228769791185688e-19
+-1.5875515013913724e-18
+1.7155643186288539e-19
+1.5291573465708937e-18
+4.2910434362123583e-19
+-3.0913311134270495e-19
+-9.573192839647704e-19
+-3.640223352498862e-19
+-1.5071826330757202e-18
+-4.532579179876168e-18
+1.919323718919041e-18
+-6.035691599589917e-16
+1.8407791974443747e-18
+-5.4263048183478615e-21
+-9.303446527707777e-19
+-1.1848714987060137e-18
+-2.3479438969256435e-19
+1.9848652810506266e-18
+4.1107464323858694e-19
+-1.7486017054990687e-18
+-1.2766904097490442e-18
+-4.900259307794764e-19
+-4.562430473821982e-19
+-1.0058185376399795e-19
+5.983493678963581e-19
+4.583781961548688e-14
+-1.6052994886143102e-18
+5.704038980818666e-19
+-3.690908844533049e-19
+-1.7246514146456317e-19
+-1.6084229226073104e-18
+-1.764012183708508e-18
+4.142962015317513e-19
+2.0979591980070723e-18
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l2-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l2-r1.3.txt
new file mode 100644
index 0000000..a13bd17
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-2.7535482913758407e-19
+2.393211872935491e-19
+3.1072352111993416e-6
+1.0840065571953327e-19
+-2.0941381308714374e-19
+-8.621005590998366e-20
+2.103835397797976e-19
+4.195434217474814e-19
+-8.885506931619853e-19
+-4.36335033085943e-19
+-1.3609450753144378e-19
+2.1610507093254125e-19
+-1.030310321601909e-20
+1.0167631711198218e-19
+4.556428244502144e-19
+-6.500371863442832e-20
+8.094737036128603e-11
+2.720795792294055e-19
+2.7607535514990604e-19
+1.1618087745431123e-19
+1.4376321497989194e-20
+2.8769708765991123e-19
+8.548827620204579e-20
+3.6911364484484716e-20
+-3.28101836204012e-19
+-4.328065390867332e-19
+1.7361078661294912e-19
+5.451124889615398e-19
+4.532452285200323e-19
+2.0327283714424713e-19
+-2.9667084700807225e-20
+-1.1189365203823718e-19
+1.5650430380444037e-19
+-4.306994063361795e-20
+2.0083161160746054e-19
+5.042301768996282e-21
+-1.812525913044437e-19
+2.1393064574668662e-19
+1.197477812233734e-15
+2.595204467136053e-19
+-1.6515800887902872e-19
+-2.2691446038223107e-19
+-4.0993618906853395e-19
+1.052096126361539e-19
+1.7068339442512395e-19
+1.0092342765819407e-19
+1.389044012981952e-19
+7.842677102199984e-20
+1.4383659918842957e-19
+-1.8911005749126733e-19
+-3.2263207815021416e-19
+5.002610242395071e-19
+7.188757869999284e-20
+-5.589355558767017e-19
+2.2681322123007282e-19
+-6.040822788409761e-20
+-1.3724160670825023e-19
+3.285622785371714e-20
+-2.11998125653564e-19
+-9.415579131545465e-20
+6.345766475519129e-20
+1.2403099223990032e-19
+2.0813079133358864e-20
+1.1710796597522418e-20
+-1.0167440425681565e-19
+1.9531082469840217e-19
+2.66702080490579e-19
+-7.881506123375959e-21
+-3.752546311275014e-18
+-1.6394313905312975e-19
+3.4514690085203867e-19
+2.5730933477511425e-19
+1.206357895057734e-19
+9.554613329113997e-20
+7.745047171698852e-21
+1.0663523903484344e-19
+-5.847078671256516e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N2-l2-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N2-l2-r1.8.txt
new file mode 100644
index 0000000..9d8d0c7
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N2-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.9112617371725252e-19
+-3.3599744317189256e-19
+9.532586535390801e-7
+-1.798864235609912e-19
+-1.3420164040893543e-19
+-2.419313815658543e-19
+-3.228167983246517e-19
+8.542258642918171e-20
+-2.4710477591191408e-19
+2.030539541681731e-20
+1.6380100454385127e-19
+1.9052056199438363e-19
+-1.9785676868597961e-19
+1.436067292101031e-19
+-2.88960341089296e-19
+1.9865212546316922e-19
+9.126029352104679e-12
+2.626395218525183e-19
+-3.275327706776989e-19
+2.229950201460134e-19
+-1.3940153038399104e-19
+-1.2220639707827134e-19
+-8.752085283754464e-20
+-1.866808105935452e-21
+2.0358182141477836e-19
+1.2411525851340523e-19
+-1.0545058715069679e-19
+-1.3345335214730464e-19
+-1.875873278434823e-19
+1.0055524181272847e-19
+-1.9401404945157624e-20
+8.407017197705165e-20
+-9.75165162843325e-20
+1.3862973209838785e-19
+-1.1587500803577414e-19
+1.2468028103291577e-19
+4.156855935422019e-20
+-7.287583658096923e-20
+2.8115460858743904e-17
+-2.5688017667121555e-19
+5.304479531812127e-20
+6.653279935718506e-20
+-2.18593184978661e-19
+1.4626088360832154e-19
+-5.683758321656456e-20
+-7.845219390113877e-20
+1.9095241489762167e-20
+-1.001047821924694e-19
+2.6285613977543063e-20
+-4.4581296547980364e-20
+-2.458698566496835e-20
+-1.76778306747659e-19
+-2.1248460478897321e-19
+8.139635588341374e-20
+2.3422678869598812e-20
+4.851550648177608e-20
+-8.92864375432964e-20
+7.805216564105772e-20
+-1.7998292964869232e-20
+7.833440467438093e-20
+-3.952402414275626e-20
+-2.6856935671288648e-20
+-5.971778733538299e-21
+1.3156162239813855e-20
+3.4439871598798446e-20
+1.4526674499017778e-20
+3.860212811889164e-20
+-1.5060384354934063e-19
+-1.2403474540547026e-18
+-1.761992286200836e-19
+1.6617961570962292e-19
+4.542330501924826e-20
+-2.972364317519054e-20
+4.351564638873555e-20
+-2.0980257868541764e-21
+1.1057184165318445e-20
+-5.0194708974652867e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r0.4.txt
new file mode 100644
index 0000000..264f520
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+7.809813345710222e-18
+5.281540107366018e-18
+9.909172604938527e-6
+4.901870448832864e-18
+5.25520364601461e-18
+3.897049697806776e-18
+8.951231704563596e-18
+4.768875315970822e-18
+1.2224408032505196e-17
+-4.0534473211615915e-18
+-5.915131337239136e-18
+-2.523554651163381e-18
+3.379644295546948e-18
+3.08475632002696e-18
+1.5191133821679993e-19
+7.4566287566954e-18
+1.1764227842758847e-9
+5.966503595976895e-18
+-1.3849756414613836e-19
+3.0664104233928142e-18
+3.495108627795635e-18
+1.4842211332470139e-18
+1.6834827906552324e-18
+-9.903443148245852e-19
+1.0539615551599589e-18
+5.152494180317549e-18
+9.733553381919684e-18
+-2.6575962708978786e-18
+-3.0243046683918777e-18
+-5.831000865087899e-19
+-2.2833535504932286e-18
+-1.6004435248283176e-18
+1.480277136086361e-18
+2.4603013129441874e-18
+-1.83352131441703e-18
+2.0146664174782814e-18
+3.2791174492936847e-18
+8.68094419678321e-19
+5.898405125695035e-15
+-3.2088212626946673e-18
+1.4484304757079163e-18
+3.524305776973284e-18
+-3.174775801151692e-19
+9.120103625146018e-19
+2.1017482700551077e-18
+6.855999814740165e-19
+-2.30861197578663e-19
+-3.481480853053218e-18
+9.752391696587544e-19
+1.5502686100272292e-18
+6.067082864801479e-20
+-2.9924260840116672e-18
+-5.062832842548659e-18
+5.713632001177597e-18
+1.8131784163760735e-18
+4.1762177778694416e-19
+-3.583614717366216e-18
+1.8638203134070393e-18
+8.645970418873099e-19
+-9.39789998368251e-19
+6.34498711628574e-20
+-5.374022350743565e-19
+-5.423887253760705e-19
+3.1053882078320786e-18
+1.449327346287077e-18
+2.1241395839478236e-19
+-6.025721766222296e-19
+7.397745051760806e-19
+-3.285342024762177e-17
+-1.8972116301818502e-18
+-1.509438121961605e-18
+1.0008600034580304e-18
+-2.0713119526210659e-19
+3.6494989422977254e-18
+-3.0979601905548377e-19
+-7.961929792407193e-19
+2.1093823223517402e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r1.3.txt
new file mode 100644
index 0000000..73b7c87
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.1358836760796142e-20
+7.023285275609131e-19
+-1.3911859493446684e-8
+7.08022405314531e-19
+-3.1780599999989534e-19
+6.148357913416176e-19
+2.84120591739676e-19
+7.698716030302772e-20
+2.464816455699588e-19
+-2.78551875742753e-20
+-1.058277637385625e-19
+-6.113074833873637e-20
+6.418422809546359e-19
+-2.2931422503619195e-19
+-3.551567590493333e-19
+2.97846732514482e-19
+-7.208228728528235e-14
+5.349838235661317e-19
+-5.253521595241616e-19
+4.535056272891731e-20
+6.670404781694276e-19
+1.0894193436729847e-18
+-5.372467945894432e-19
+6.036405296082623e-20
+5.654165289007518e-19
+9.242714509921378e-19
+-1.6945794371518833e-19
+-1.1507642872770792e-18
+-5.515450670729941e-19
+-6.736351431902897e-21
+6.403125974159298e-19
+-7.044693592376475e-19
+4.2540479206408305e-19
+-4.617355558310929e-19
+4.1955949683946364e-20
+-3.040088528578902e-20
+2.0607838730401489e-19
+1.3717161078982916e-19
+-6.9349926196392214e-18
+-2.770523180573326e-19
+1.4458097737578665e-19
+1.0587976443969271e-19
+3.211088879591218e-20
+-2.4051948957631257e-19
+3.605060548243514e-19
+4.1210157787165194e-19
+-3.7064219232287553e-19
+3.6968108569634875e-19
+2.400166183909203e-19
+-3.9372540836579124e-19
+6.048999401112136e-20
+1.0591738175032342e-18
+1.7437392535151464e-19
+-1.0743974864830979e-18
+1.4027003084918372e-20
+3.9819793465890327e-19
+-3.519724622539283e-19
+-1.051811512415129e-19
+3.9289626158369627e-19
+-4.414011819307775e-19
+3.6667939319897216e-19
+-3.007717894215922e-19
+3.4345290180244773e-19
+-5.885581571023385e-20
+-2.055959936855447e-19
+4.861754328969201e-19
+6.445749643986198e-19
+-6.927378520247589e-19
+-7.688801315041534e-18
+-7.119416255279759e-19
+8.643401838288343e-19
+3.972607997103724e-19
+-2.1496663099984988e-19
+5.968725829213319e-20
+2.776211659842536e-19
+-4.552643402465122e-19
+4.465372628783413e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r1.8.txt
new file mode 100644
index 0000000..98d9882
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+3.343853345824815e-19
+-1.9270952312353895e-19
+-4.050027777128956e-11
+-1.1460060824634546e-19
+1.4003442182770239e-19
+-5.754280369359431e-20
+-1.5045915572657465e-19
+-1.6240608857593264e-19
+5.497937409744617e-19
+1.6739970461560501e-19
+3.4281463362756238e-19
+4.283201961504572e-20
+-1.1675634702366154e-19
+1.173275280153872e-19
+2.7418936683138234e-19
+6.914547796705099e-20
+-8.064521680236998e-18
+7.743098923735608e-20
+3.531211560467903e-19
+-1.65825385566144e-19
+-5.952371791005734e-20
+-8.352429024532651e-20
+1.2626244331141657e-19
+3.519956368100676e-20
+-3.3924803739971694e-19
+1.9113616083515214e-19
+2.9226828902009417e-19
+-1.7258288344801912e-19
+9.35928523290561e-20
+-1.1783226636946112e-19
+-9.125409853722558e-20
+1.4961159114376961e-19
+-1.2597203398682924e-19
+1.4868983597437228e-19
+-4.750521496777812e-20
+-3.2772927543062934e-19
+7.664105042491264e-18
+-3.2866767435955016e-19
+-1.7790022632229886e-18
+-1.5764142855454144e-19
+-2.679616999328074e-19
+-3.474797580608528e-19
+6.016493367909785e-20
+5.812806522868641e-20
+-1.8271740580748237e-19
+-1.0939001939377773e-19
+1.1535838790173872e-19
+5.611714721800504e-20
+-1.0817025526064703e-19
+-3.354792729742989e-20
+1.3563046094645097e-19
+-1.8284957397035772e-19
+-1.9933818620407324e-19
+2.13217336855548e-19
+-1.7514984463702037e-19
+-1.956607406607897e-19
+2.0044090704824617e-19
+-1.1625015930846268e-19
+-1.6868054581720084e-19
+1.2356046786614535e-19
+-2.3782071681717527e-20
+1.5734482913674264e-19
+-1.618660310179772e-19
+-2.1634833378066515e-19
+-6.792678518557054e-20
+5.08601362979217e-20
+2.8143005676940427e-19
+1.1822304297494753e-19
+-1.6835060688960936e-18
+7.477856467088276e-20
+9.77606458827757e-20
+1.2830535299925464e-19
+-2.794244112030769e-20
+-1.891593201504644e-19
+-3.935208185995313e-20
+1.982786955228412e-19
+-7.040491830629949e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l1-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l1-r0.4.txt
new file mode 100644
index 0000000..a8d5d2e
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.934560385802268e-18
+-2.5162453730781327e-18
+-0.00018722748069698194
+-6.31558022512402e-18
+-4.7178159382997615e-18
+-2.8244309490291582e-18
+-5.3978263728002474e-18
+-4.956667235306592e-18
+4.891906437969203e-18
+9.891756637154126e-19
+5.233734690203679e-18
+4.623835813004549e-18
+-2.3887057031510316e-18
+-4.268410779451233e-18
+-4.889719372429613e-18
+-2.0861412330526103e-19
+3.415091031358371e-9
+-1.0082206269218777e-18
+-2.372947085301284e-18
+-2.3688405471502644e-18
+-3.251901759574618e-18
+-1.6862479972818603e-18
+-3.257782600139564e-18
+-3.359608817888177e-18
+-1.3525594155324079e-18
+-3.4385834991307653e-18
+4.964142466502234e-19
+2.7055158777588412e-18
+1.7821341599658964e-18
+3.0707872557336825e-18
+-3.1598299399525657e-21
+2.0470652209156052e-18
+-1.4869493057697716e-18
+-1.7615609373607838e-18
+-1.1073715014431147e-19
+-1.3248604455404572e-18
+8.347228453782862e-19
+3.11596300110523e-19
+2.614064008168329e-14
+-7.21328170720995e-19
+1.1545377535611947e-18
+8.313305776862062e-19
+9.07810042761634e-20
+-6.528656044331118e-19
+-2.5231093727310603e-18
+-1.1680438156234991e-18
+-1.568027143802977e-18
+-1.506060562574792e-18
+3.1301273966091586e-17
+-1.9795755547374037e-19
+2.2132205769688256e-18
+-4.682586729601434e-19
+-5.503755393462427e-18
+-6.807531005188907e-20
+-4.646825643769236e-19
+1.4823084848756381e-18
+1.6336113994401627e-18
+1.356986899761098e-18
+7.405185541370721e-19
+1.2685721877988103e-18
+-3.426114242535017e-20
+2.2620649717546225e-19
+-5.551475598096976e-19
+-5.955071753116259e-19
+1.2041516107526364e-17
+1.0431209388343516e-18
+2.400004990318506e-18
+-2.5787769186646914e-19
+4.3115667772415946e-17
+2.1810064416032542e-19
+3.4029594150875207e-18
+-1.6528163719109814e-19
+-1.972581742658268e-18
+-6.475624784402005e-20
+-1.267575809976899e-18
+5.304479725682583e-19
+-1.9579803569478304e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l1-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l1-r1.3.txt
new file mode 100644
index 0000000..8657de8
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-6.086880657281111e-19
+-7.874404648570221e-19
+5.866475929316492e-7
+-8.5680595694464365e-19
+8.554953300576285e-20
+-4.8287470235236255e-19
+-8.465125989502162e-19
+-4.1817460585476807e-19
+-1.1989612040150194e-19
+8.484926609259279e-19
+9.831602059681224e-19
+6.063043161874601e-19
+-3.910684335563338e-19
+-5.599650532348579e-19
+-1.7635306482697286e-19
+1.9320785854706674e-19
+6.500600115672136e-12
+-1.9869660903931382e-19
+-6.602622942641361e-19
+-7.664914308351719e-19
+-3.6846194930677755e-19
+-3.8327076509609694e-19
+-4.498686126361055e-19
+5.653893870369024e-20
+3.343981088445669e-19
+2.993958642891575e-19
+7.907936838080758e-19
+-3.4156969366956774e-19
+-1.957527927926855e-19
+7.214548456769892e-20
+3.612830135603175e-19
+3.5169127274639693e-19
+-2.6403784482864505e-19
+-2.250846237761644e-19
+-1.4590264008607792e-19
+4.127227973779246e-19
+2.8315235057939176e-19
+1.8267269239513532e-20
+1.2517842923107566e-17
+-3.494692038959638e-20
+3.4466910065071273e-19
+1.8650027600147482e-19
+-3.804065294405099e-19
+-3.3727526919722506e-19
+-1.9121833407751186e-19
+-2.1152432564598157e-19
+-1.0285307846856689e-19
+3.705142296429614e-21
+2.2518003873670497e-19
+1.2431684905259165e-20
+1.789159547079977e-19
+-4.065490605591269e-20
+4.637497114411169e-19
+-1.4882685279842358e-20
+1.364929436304044e-20
+1.2848768999492079e-19
+-6.26747835418496e-20
+9.716127452298365e-20
+2.1609701884626592e-19
+1.3631684867177792e-19
+-2.3689417152165887e-19
+-4.316254931930694e-20
+4.896065889830032e-21
+2.445891637649819e-19
+1.0734152203099301e-19
+1.3308745397322064e-19
+-4.0747947718953567e-20
+4.1198328175443084e-20
+-4.395421777569336e-18
+3.920354658535451e-20
+-6.330435522970769e-20
+8.026594249052614e-20
+1.0360815300395359e-19
+7.480192663729895e-20
+5.960442400957844e-20
+-7.408669005725335e-20
+-2.2104300637853324e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l1-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l1-r1.8.txt
new file mode 100644
index 0000000..78e70b8
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-3.092335899572199e-20
+8.613966477855996e-21
+-1.4290955428281268e-8
+-5.356180743477392e-20
+4.8786547880674277e-20
+-1.515156865822646e-20
+-3.446345422321768e-19
+-1.5503416959579922e-19
+5.936394960003285e-19
+2.639097796599221e-19
+3.4199866779848158e-19
+3.344846534239488e-20
+8.830165903116124e-20
+-2.0010300051002272e-19
+-2.7992670808195294e-20
+2.4941752807206938e-19
+8.018463743744352e-13
+1.1608393576392914e-19
+-4.2584438322579565e-21
+-2.746969327236591e-19
+6.185271303140108e-22
+1.4418095754705095e-19
+7.343653538541269e-21
+6.361918287695382e-20
+1.8378003613776224e-19
+3.9618978721863725e-19
+-6.013855892646965e-20
+-3.548038576678963e-19
+-1.5911503831393703e-19
+-8.078184792999207e-20
+1.2710558382806017e-19
+-1.3385769069288473e-19
+2.3098958021025777e-20
+-7.251946148524596e-20
+9.48102010399092e-20
+2.2532966654105883e-19
+4.499488680376978e-20
+1.2675926864000996e-19
+3.321268351877078e-18
+4.9117481518006576e-20
+-7.318617067455083e-20
+1.4743458484092627e-19
+-1.5212202249206625e-20
+-1.8410355370003545e-19
+2.7077971417218602e-20
+2.778575872693822e-20
+-9.598430677514258e-20
+7.637928918155208e-20
+9.116104489612072e-20
+1.3636119270158383e-19
+-1.9028637578570235e-20
+-2.880666944647482e-19
+1.446609277848203e-19
+6.921449729460406e-20
+1.595166758755083e-20
+-7.356742016458222e-20
+-1.3050142716787712e-19
+-6.291500802006558e-20
+1.4808801652931964e-19
+-4.0114622416338275e-20
+-2.6292188205487655e-21
+-5.009730812935861e-20
+5.0734357587509467e-20
+1.2755602163789294e-19
+1.155522746138625e-19
+-1.0174536185347817e-19
+-8.697317824024235e-21
+1.505025305850452e-19
+1.9379170265668713e-18
+1.486924147443026e-20
+-3.4145682067445834e-20
+-1.0554269510534847e-20
+1.7975684102778337e-19
+1.3592168878157646e-19
+4.684953201245482e-20
+-4.95375454819286e-20
+-3.1232601861168844e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l2-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l2-r0.4.txt
new file mode 100644
index 0000000..a28cf9c
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+3.844606446970914e-18
+8.132270682359932e-18
+-0.0011906565443948823
+6.56079957207659e-18
+3.1325801290332313e-18
+3.665521844353184e-18
+2.8272404679796946e-18
+4.067336407429393e-18
+4.551319783834169e-18
+-4.8229030312700296e-18
+-2.8207520632548286e-18
+-3.486311510282345e-18
+6.967259581472897e-20
+-1.1481266902236024e-18
+3.133911062638829e-18
+1.866205488703336e-18
+3.8909906941506025e-9
+2.760136267966943e-20
+3.3567981874136927e-18
+-4.684158372765285e-20
+-4.479910935913692e-19
+-8.265850425119895e-20
+4.827338166919386e-19
+-1.0714098243123719e-18
+2.1349879025850917e-18
+-3.3974425339920982e-18
+5.073409716698039e-18
+1.8236619354385086e-18
+-7.690926812171039e-19
+1.1758124253257522e-18
+-5.064836454938021e-19
+-8.008762690738414e-20
+-1.1819234805949292e-18
+3.2049324798399024e-19
+2.884246447074399e-18
+5.372117453482785e-18
+-1.6623021589865644e-20
+-8.607310581981785e-19
+4.570602975922358e-14
+-7.732087319451677e-19
+9.522337775587944e-19
+5.5457697376818914e-18
+3.07004444754361e-18
+-5.523101105887905e-20
+-1.3577227803135405e-18
+5.204517016607081e-20
+-2.5735243217749797e-20
+8.186705784110821e-19
+1.925726510450508e-18
+-1.5788197828452627e-18
+1.2376541022814417e-18
+1.2886018105698078e-18
+-1.1673172804348327e-18
+-7.951257094553727e-19
+1.3163421395923861e-19
+1.6154903537609635e-18
+-2.121768212227999e-18
+-8.433404129998636e-19
+2.14638893296791e-19
+-2.7047565259565175e-20
+1.2128039132385552e-18
+-3.614034814305433e-20
+-1.5248689436442345e-18
+-1.6381749161055265e-18
+2.2532224110064306e-19
+2.0068787188062478e-18
+7.883106782484735e-19
+3.18155727661382e-19
+2.3806516109627253e-17
+1.392197910485949e-18
+1.2456579018885048e-18
+1.3088827282259595e-18
+7.404060575737649e-19
+-1.4619864796074973e-18
+-1.5678175052164831e-18
+7.362548516696675e-20
+1.1670939093577007e-18
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l2-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l2-r1.3.txt
new file mode 100644
index 0000000..b111f6f
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.216382759203645e-19
+-3.727999881693868e-19
+-1.0683020693877806e-6
+2.30841035051232e-19
+4.300027845510906e-19
+8.933731561331695e-21
+4.02259049870834e-19
+8.16106097984524e-19
+-1.6509368524664507e-18
+-5.935251730157664e-19
+-2.727256743346755e-19
+4.200022678805525e-19
+1.742003272828036e-20
+-4.726724570099381e-20
+5.179020919059239e-19
+2.460530157630529e-19
+1.9495170795502796e-10
+6.867669620660926e-20
+6.168132759004927e-19
+8.457250931187037e-20
+2.583451716971838e-19
+-5.807312528763526e-20
+5.526643119120251e-20
+8.370258712999987e-20
+2.7534129536416345e-19
+-1.1301000982305991e-19
+1.203233979619768e-19
+-6.739282142304747e-20
+-1.6436604160364602e-19
+-1.2105293248815735e-19
+-2.91585301828005e-20
+-6.852141889599658e-20
+-1.466725642906058e-20
+9.586804225874235e-20
+8.726878893291471e-20
+1.0318213479364961e-19
+-5.314379526651194e-20
+1.7032466945791443e-19
+1.179933849005485e-15
+1.6341405365382552e-20
+2.539932549410944e-20
+1.7262302956398423e-20
+-6.5193206002601185e-21
+7.252967765048713e-20
+4.462219352068772e-21
+7.845148627397413e-20
+7.119972955304098e-20
+1.3784697366966834e-19
+-1.4491912233775237e-19
+2.0797433141319394e-19
+3.2595068193523394e-19
+1.855058506166148e-20
+6.800456543000047e-19
+3.0484500704723005e-20
+-8.021677694286752e-20
+-1.504646041722061e-19
+1.220844137873139e-19
+-1.7414309601735322e-19
+5.654967397727237e-21
+-8.433444972041381e-20
+7.199725444816427e-20
+-1.6931572883044995e-20
+-8.668206584702173e-22
+1.1504531356964078e-21
+6.839416879098266e-21
+1.0471594736917313e-19
+1.145797239758728e-19
+2.2839333007050517e-19
+3.58002786835973e-18
+5.250266179088887e-19
+1.1566531128814342e-19
+1.1922201343871098e-19
+-9.184983471868129e-20
+-3.355446522593993e-20
+4.8633437880201705e-21
+-3.539830251010891e-20
+9.545259725843613e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N3-l2-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N3-l2-r1.8.txt
new file mode 100644
index 0000000..c08e790
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N3-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.0021193924029909e-19
+-2.8364131771898717e-19
+6.70317999361113e-7
+-4.0989510953448047e-19
+-1.5131965850958017e-19
+-4.457536411202471e-20
+4.498211537269951e-17
+8.065421331524029e-20
+-2.834563911532933e-19
+-1.4854645149546518e-20
+-1.3958696424404497e-19
+5.2144908589242965e-20
+-9.170667754274706e-20
+2.0424190508124715e-19
+2.205695197948548e-20
+-2.039066319768732e-19
+3.52925462348192e-11
+-1.1927963658501552e-19
+9.175075722210819e-20
+1.9384702359132588e-19
+-6.316069399058768e-20
+-5.585538378734026e-20
+2.3729192422726184e-19
+1.1071581146944702e-19
+-4.407487654369494e-19
+-4.1196973505631315e-19
+-2.368287434739105e-19
+5.168426480246539e-19
+2.4613593092593854e-19
+-8.237869102195728e-20
+-1.9092694678204298e-19
+8.975021767947442e-20
+-1.466783804042878e-20
+1.8500224625758632e-19
+3.3604057288601896e-20
+-3.2955206890351847e-19
+-2.27854731286363e-19
+3.398035984382817e-20
+1.4888592891332348e-16
+-8.751533237630813e-20
+-2.651023778093868e-19
+-2.2388946088212465e-19
+6.949257497936715e-20
+1.4701558575087388e-19
+2.3585114039008212e-20
+-1.212546934717864e-20
+1.8151306434010553e-19
+-1.9435907423989035e-20
+-1.8285447179709238e-19
+-4.242959863413177e-20
+-1.9705510142544502e-20
+-1.9473963386721443e-19
+-3.5660087079406044e-19
+2.479893680288571e-19
+4.219713058974561e-20
+9.018697227407669e-20
+1.9016398575806219e-19
+1.3321980448681626e-20
+-1.4655083303124125e-19
+1.685021514615643e-20
+-1.1128235264086342e-20
+1.2810955859505895e-19
+-4.250256905041473e-20
+-1.4709254262840972e-19
+-6.006231452285986e-20
+-7.03480574473317e-20
+-1.4447138821298817e-19
+4.29220917926469e-20
+-1.6203283780674213e-18
+-1.3922441679767666e-20
+-2.4904011682017247e-19
+2.2301871757809334e-20
+-4.732314541972328e-20
+-1.4535590924409732e-19
+-3.1456043721212143e-20
+1.3327521266316024e-19
+2.3847940177330566e-21
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r0.4.txt
new file mode 100644
index 0000000..c7cd9eb
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+8.453469463707641e-19
+4.505611230750561e-18
+-0.000012709627871655971
+3.561591563469571e-20
+2.259202720040036e-18
+1.7954780308124487e-18
+2.788253377758539e-18
+1.5045277968997313e-19
+1.1637792635188208e-17
+-2.626899443269671e-18
+-1.246974359833383e-18
+-1.0683211319050989e-18
+-1.0012592215011638e-19
+-4.304239487298508e-20
+2.313779269675672e-18
+3.062197812252932e-19
+1.182418606723418e-9
+-1.6867190831030578e-18
+2.753972037262841e-18
+9.84428680975124e-19
+-3.930280299810527e-19
+-5.147623534075684e-19
+1.3059806684443938e-18
+-1.8855801266008592e-18
+2.980924421937453e-18
+2.063502954048259e-18
+7.887334644767161e-19
+6.154720065762058e-20
+7.96282266279261e-19
+1.5578081286661028e-18
+-1.9250830673315182e-18
+1.9612578727169642e-18
+-1.8511680172513696e-18
+2.7308613121129254e-19
+8.009111140571452e-19
+-1.8325052199697365e-18
+-5.613839070922821e-19
+-3.4935519255815985e-18
+3.898933329095854e-15
+1.0801825916963796e-18
+2.510001697492309e-19
+-1.6501250263940182e-18
+-4.739116252663308e-19
+-3.5660790182926714e-20
+-1.619375414302972e-18
+-1.780962820519733e-18
+2.5827892616234565e-19
+1.1508418071867312e-18
+8.096000260065553e-19
+-3.3151229411474987e-18
+-1.3415283416785538e-18
+5.813065521456218e-19
+-2.477780233823498e-19
+1.3635804856707289e-19
+1.4017284787086318e-18
+2.3720786490556798e-18
+-5.329813165917785e-19
+6.491358793628529e-19
+-3.0831254817505235e-19
+1.585064272687002e-18
+-6.865454327582933e-20
+-1.169841215278885e-19
+-5.662300093344094e-19
+7.5111356486761715e-19
+-4.716461843637012e-19
+-3.876275625409178e-19
+-2.421160124791027e-18
+9.095141382210699e-19
+4.017168647740603e-17
+2.1841749569396386e-18
+-9.701871123687984e-19
+-4.889280811608595e-19
+-1.314403435031715e-19
+3.5907600198197224e-20
+-1.01726713211971e-18
+-3.310214606488974e-20
+-2.072507228606205e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r1.3.txt
new file mode 100644
index 0000000..8963eb9
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.3063445455189733e-18
+-1.5067350145664103e-19
+-2.808731402136864e-8
+-9.78185583769494e-21
+-7.215991693068341e-19
+-1.631542862763315e-19
+2.3370624652144792e-20
+-5.857722692438354e-19
+-5.872382013103413e-19
+8.101622176135105e-20
+-1.0074189372450716e-19
+5.183595066287943e-19
+-5.710658546177204e-19
+-1.9776479654162137e-19
+2.9155987490989825e-19
+-6.632773570955756e-19
+-2.5773665234240723e-13
+-1.806637986514322e-20
+4.665234822951416e-19
+-3.381075308313142e-19
+-7.723504706673329e-19
+-3.028153582595146e-19
+-1.8663152589633547e-19
+-1.237628339321211e-19
+-6.688630399885787e-19
+-1.3581221215451928e-19
+5.03177698622286e-19
+-1.3320910364543492e-19
+4.1926511616395825e-19
+1.264148440423161e-19
+1.9702847654947847e-20
+3.9210809447217506e-19
+-1.9506077866210247e-19
+-3.2064235173226754e-19
+8.316329528422082e-20
+8.056093173751003e-20
+3.8908051659597715e-19
+-1.77795343890045e-19
+-1.0469100110439457e-17
+-4.397693569344989e-19
+1.4525098958249967e-19
+-1.5908141569900487e-19
+2.7298498859046554e-19
+-9.945428703564027e-20
+-1.5422010805564438e-19
+7.344321624210812e-20
+-5.0278598374445565e-20
+-7.620053738988393e-20
+-1.0007248660566288e-19
+-1.2773607109943929e-19
+-8.288999930823372e-20
+-6.795386030858261e-20
+-1.8422268830697904e-19
+-1.5354740251371787e-20
+-1.236733197016387e-19
+-1.3659616995473732e-19
+-1.548313055700545e-20
+-5.66201986975572e-20
+4.228760013709513e-20
+-9.660088227619885e-22
+-1.159403488418173e-20
+2.1705397543334252e-20
+-2.566579604359617e-21
+-4.793712270325856e-20
+-1.44022939594814e-19
+6.265989267523651e-20
+7.17696401323993e-20
+1.0162342379896049e-19
+-8.84194066161607e-19
+4.8855701068456634e-20
+-1.664369806333182e-19
+-3.1854134690371266e-20
+1.6840535557792103e-20
+-3.593933093535205e-20
+5.0932137259569623e-20
+-2.76428776144555e-21
+-5.610084317176684e-21
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r1.8.txt
new file mode 100644
index 0000000..e735ced
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+2.490320728528536e-19
+5.549722431601729e-19
+-1.3233742682381348e-10
+5.329804505487223e-19
+1.7772668031982752e-19
+4.1212236651482795e-19
+1.7343418974946032e-19
+1.8495740229822578e-19
+1.1925797866129817e-19
+-2.7725836702378517e-19
+-1.315897018452619e-19
+-3.9812021678934027e-19
+3.652251637049238e-19
+-1.64128358368261e-21
+2.910864815190917e-19
+3.8336079371437666e-19
+-3.7644925543228017e-17
+1.9002433074116074e-19
+-1.710043121669108e-19
+-7.577188123186833e-20
+5.01837573802644e-19
+2.3591062087862244e-19
+-4.198697375319141e-21
+2.862688376676231e-19
+3.5807139777694073e-19
+5.560643075884552e-19
+-2.9235588521574935e-19
+-5.225566160862758e-19
+-2.273548759950975e-19
+5.829608244629484e-20
+-7.791207999918761e-20
+-2.2478747085411145e-19
+1.3198298447685632e-19
+4.3568730454635003e-20
+1.7784259087749502e-19
+1.956698681129819e-19
+2.46364029479237e-19
+-6.355585773043036e-20
+5.679953777313455e-18
+-3.2642059343915526e-20
+2.4754156333575177e-19
+1.1346385059424436e-19
+-5.460672569518536e-20
+-2.793196967178898e-21
+1.3285862143533696e-19
+-1.7415340078745127e-20
+-1.5589232339291346e-20
+-2.2099440658929407e-20
+2.849766395952954e-19
+1.4863963228517074e-19
+-1.5485727434725075e-19
+-5.396263392111686e-21
+-6.008135685455256e-19
+-1.983294042023373e-19
+6.115427164397098e-20
+-1.6312715494476127e-19
+-2.9234943914299197e-19
+5.071194393563656e-20
+6.469334886855658e-20
+5.835459829126556e-20
+3.3824370983834413e-21
+8.201262632781644e-20
+-2.491782447151685e-19
+1.5929813792195064e-19
+2.6908103493706215e-19
+-1.9134010744311608e-19
+-1.845697969218614e-19
+-1.439013043745315e-19
+-4.832095183465518e-18
+-2.189919652880057e-19
+-2.0941508204564043e-19
+-1.3293459007841784e-19
+9.593528408703845e-20
+1.8331809312610385e-19
+-1.251719314986575e-19
+9.917549820223746e-20
+-3.080107588713348e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l1-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l1-r0.4.txt
new file mode 100644
index 0000000..5bf7ed4
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l1-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.4699198008414315e-18
+-1.0144543032350331e-20
+-0.00017881245189946653
+6.430932215905765e-19
+-1.884750878036775e-18
+2.0415669513839653e-18
+-7.212544482489012e-19
+3.3498143015019075e-18
+-1.3827481991681432e-18
+-1.8302620095460692e-18
+-2.178060851441953e-18
+-2.1471569701666655e-18
+2.1955226341729473e-18
+3.7078188977954704e-18
+4.707760730773567e-18
+-1.1089183291885889e-20
+8.950128174983903e-11
+-8.073556782095458e-20
+3.9119294362556865e-18
+5.096861941425142e-18
+3.971040176419032e-18
+2.2355798440751536e-18
+1.9937782458549392e-18
+1.666990618698515e-18
+-2.5600578214026164e-19
+-2.4434473787164487e-18
+5.003873605684381e-18
+4.262601490009273e-18
+1.9706037470185004e-19
+-1.189053725776348e-18
+-2.1009626552683354e-18
+-1.875096025927056e-18
+2.6248653544446147e-18
+2.0797612116062086e-18
+2.356491516086672e-18
+-1.0291449275163983e-18
+-2.0826447276786515e-18
+2.143681570823024e-18
+-5.520769770743703e-16
+3.1437696079743893e-18
+-3.2562175744206135e-18
+-1.2244710146664544e-18
+1.8063640378663763e-18
+2.5656273415580353e-18
+2.7820168495301954e-18
+1.0883273222003064e-18
+7.390300426247829e-19
+1.2005608420727263e-18
+3.092505192908992e-19
+-2.5648682902549185e-18
+1.4052287968682265e-18
+4.039405826865927e-18
+1.4412794993123954e-19
+-3.544211258028913e-18
+-4.573812479050711e-19
+1.3627573117142679e-18
+-2.0883167180636247e-19
+-5.09674779050061e-19
+-1.7307438842004203e-18
+-1.1304084815027166e-18
+-1.764179144945273e-21
+1.164453374359021e-18
+9.674280255862337e-19
+-6.955216219495037e-19
+7.418682802522113e-19
+1.3439414504763955e-18
+2.9231334484414357e-18
+-7.512479138624974e-19
+-9.458073121181964e-17
+4.982849156055121e-19
+3.3703986910452895e-18
+-1.748641720361201e-19
+1.0566150786714015e-18
+-8.597078357804504e-19
+6.662121183802152e-19
+8.512350247660697e-19
+3.2214173008751606e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l1-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l1-r1.3.txt
new file mode 100644
index 0000000..3a653c9
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l1-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-3.2225023130384116e-19
+2.5769783178202714e-19
+8.556195863934457e-7
+9.968804633804319e-20
+-1.7189072915263045e-19
+-2.6505818827010055e-19
+1.971046514828415e-20
+3.249060109827163e-19
+8.009809591201176e-20
+5.0837538170531674e-20
+1.234377071188448e-19
+-1.458161221638837e-19
+1.33736286690889e-19
+2.204510649461978e-19
+3.068932564935148e-20
+-1.2591614702920681e-19
+2.1121614938752532e-11
+-1.8038520195930235e-19
+2.0540716991978708e-20
+3.072738645884529e-20
+1.6506025293273115e-19
+-6.261777593424307e-20
+3.2038548185981107e-19
+2.3539661918376844e-20
+3.4830538662349584e-19
+4.006268997376447e-19
+-1.6046567175795682e-19
+-6.612694169521782e-19
+-3.7399748720242216e-19
+8.901934867832127e-20
+-2.6994082863084794e-19
+1.4878907390888464e-19
+3.0740028428168e-20
+-5.1154606839080907e-20
+5.274749497374235e-20
+-1.4580948533193767e-20
+-4.556500622805742e-19
+1.0535438863039629e-19
+6.495924621229729e-17
+4.351300765026976e-19
+-2.8669033130625177e-19
+7.695899072381277e-20
+-6.049572485209497e-21
+-1.396393650049392e-19
+1.8392167049660503e-21
+-5.4421504969570805e-21
+1.834085341734866e-19
+1.3197006867498075e-19
+2.0318638384553827e-20
+-5.165400340141916e-20
+3.3669766448511577e-19
+3.7788617312195905e-19
+-4.985507507748713e-19
+-3.5275626778505895e-19
+-4.349420415473581e-19
+-1.2038890032673334e-20
+7.594955411109818e-20
+-7.376442889165578e-20
+-2.0050285161087713e-19
+1.0039996773329005e-20
+1.7384299172052924e-21
+1.8363860266708214e-19
+7.505214554142198e-20
+-7.041064448510514e-20
+-2.2658199516829584e-19
+2.4275625188880586e-19
+7.514480592589925e-20
+-1.6436029253683006e-19
+-1.2511502751733409e-17
+5.872102177255952e-20
+3.1830791435380757e-19
+1.883694981984851e-19
+-2.389599072752873e-19
+-6.311268520331693e-21
+1.2646661795540238e-19
+7.14388849164711e-20
+1.2991246336360363e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l1-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l1-r1.8.txt
new file mode 100644
index 0000000..ad553d3
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l1-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+4.9867449990256607e-20
+-4.460261777450377e-19
+4.233433726447548e-8
+-3.141259230329771e-19
+-6.484622453631954e-20
+-5.55500319625312e-20
+1.0428278543645986e-19
+-1.1385844186877216e-19
+-2.5720063807274595e-19
+1.4396628620468658e-19
+2.4884485130461524e-20
+-3.850461127948988e-22
+-1.3010273913829783e-20
+-8.360850826001903e-21
+-1.5970921872284813e-19
+-6.218949994091947e-20
+1.7250348661075584e-12
+5.0820364479298395e-20
+-1.0008253616348087e-19
+-6.310531812598638e-22
+3.5742908053561776e-20
+-1.8752477998369687e-19
+-9.476619123469162e-20
+-8.353335760889888e-20
+-7.910437330755498e-20
+2.4805644882224347e-20
+-3.8533019657629344e-19
+7.888017540322012e-20
+2.550579470571688e-20
+9.72193791142541e-20
+3.883056991819175e-20
+1.1438514064198285e-19
+-7.563006144831154e-20
+-3.46859865077046e-20
+1.2495748236263291e-20
+1.751855597749234e-20
+-7.281247502062639e-20
+-7.63018090020907e-20
+-1.7564708814614387e-18
+2.496217063779475e-20
+-7.640033846437117e-20
+1.7207684398266131e-19
+-1.1085015561756586e-19
+5.974698341827313e-20
+-5.398558987443299e-20
+-6.214353971813449e-20
+-6.904415353587345e-20
+-2.0445421988782835e-20
+-1.3656436469862594e-20
+-4.697696831388592e-20
+-1.6761215843683266e-19
+-1.6873826406857613e-19
+3.365711510878349e-19
+4.8446909459864564e-20
+5.747320426849711e-20
+-2.1330833208402754e-20
+4.7580910434737015e-20
+5.54929599333877e-20
+4.1011994029458793e-20
+1.091714781905076e-19
+-7.80743908693619e-20
+-7.449064136679227e-20
+-4.2893733997530857e-20
+-1.421355921257486e-19
+1.0062576623009072e-20
+1.0066143637452315e-19
+-6.86319575696459e-20
+-6.81973276740731e-21
+7.798886249428719e-19
+-1.0074292093500173e-19
+-1.0921573514269134e-19
+1.1887803070409823e-19
+2.254970464168399e-20
+-3.279377882242591e-20
+-1.252823853307109e-20
+-7.972208093129532e-20
+-5.232279589033319e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l2-r0.4.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l2-r0.4.txt
new file mode 100644
index 0000000..c08dfd2
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l2-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-4.078926862172486e-19
+1.7950216339094726e-18
+-0.0004934720779156435
+1.0604720150725832e-18
+3.7539441431126523e-19
+4.545709017739222e-18
+-4.077729104645509e-18
+-1.020846755008843e-18
+2.1971769953980534e-18
+-3.3103437242127146e-19
+3.4257618894434637e-18
+-4.809934493626423e-18
+2.490806260519677e-18
+2.72546085668872e-19
+-1.5455704309430811e-19
+-2.089365583080342e-18
+-1.788029335192641e-9
+-5.386335451149299e-19
+5.37083305249429e-19
+-2.701770403945201e-19
+1.8331149554787646e-18
+9.705508650431686e-19
+3.820482551586418e-19
+1.3009259745162353e-18
+-3.247941218801714e-19
+-1.6311339935055663e-18
+9.722323577923664e-18
+-4.10270003297726e-19
+1.2745066529319042e-18
+-1.4306030791461735e-18
+-6.851636275450235e-19
+-2.43095147139534e-19
+-1.1844967942441419e-18
+-3.9376737202990375e-19
+6.827052467645159e-19
+-8.109678725469883e-21
+-1.1163894244811678e-18
+1.5277774657743358e-18
+-7.111361913951438e-14
+1.2444932315860301e-18
+-6.495284799610859e-19
+8.471145969094193e-17
+-2.296191858889146e-19
+-1.599581189039731e-20
+-1.7172391138000294e-18
+2.993732072951918e-19
+7.896596999676223e-20
+-2.019250529648428e-19
+-1.5555045599071133e-18
+1.0598958579265459e-19
+3.61133158806361e-18
+1.8188527073571253e-18
+1.138465220668983e-18
+-1.8049742710397106e-19
+-4.375471421965476e-18
+-6.152172349475394e-19
+1.2164721264442783e-18
+2.40545106022985e-19
+-2.5926487375372057e-19
+-1.2088748344094968e-19
+5.375378434194076e-19
+6.31023415682509e-19
+-2.602012422071306e-19
+1.9811366481172701e-19
+1.3288505450955628e-18
+1.6326888345632246e-18
+2.28742115945667e-19
+1.4930683210367572e-18
+3.971610434733326e-17
+1.574081692296559e-18
+-1.517115417871257e-19
+1.82632046807786e-18
+2.4287346273536977e-18
+3.1510908414044283e-19
+-4.080541415330613e-19
+7.620384849532516e-19
+5.434728489663978e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l2-r1.3.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l2-r1.3.txt
new file mode 100644
index 0000000..9b496da
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l2-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+4.331172229549293e-19
+-6.610559914294425e-20
+-4.438923817398489e-6
+-4.56006473727008e-19
+3.376000409852287e-19
+2.799164329477814e-19
+-1.7806949690976307e-19
+-6.529166892982855e-19
+4.776860504014103e-19
+5.395375630515709e-19
+2.9709367847275463e-19
+-2.6173607583372274e-19
+-1.8087793018574546e-19
+-2.357058134806271e-19
+-2.4279170110169774e-19
+-4.885404565709989e-19
+8.824583037150189e-11
+-3.22893157434948e-19
+-5.678265002283794e-20
+-2.869881809502562e-19
+-1.875493938575785e-19
+-1.4960458998233096e-19
+-1.4032317760743704e-19
+-3.918528269592328e-19
+-3.9071204149694563e-19
+-2.8615716170267306e-19
+-1.10502665120168e-18
+5.815184654788002e-19
+6.033794709727515e-19
+3.169408174458047e-19
+7.926199725847965e-20
+8.591159880521687e-20
+-2.8579426205830956e-20
+-9.139161866459239e-20
+-9.599870448378305e-20
+-1.0827147983465575e-19
+-1.4100332686610876e-19
+-1.4548463599575161e-19
+3.899028154599735e-16
+-4.528303069699575e-19
+-1.19093845680205e-19
+-7.275006958494422e-20
+6.402636435101857e-20
+-9.020718650029596e-20
+-2.1813269740906185e-21
+-3.004733575098873e-20
+5.51279559867823e-20
+-2.1780983847622475e-19
+-9.932324676321024e-20
+-7.896494248334508e-20
+-3.477323314047556e-19
+-3.4276922188004328e-19
+2.977825389772523e-19
+2.166180456969463e-19
+4.524601694952342e-19
+2.968803886593381e-20
+1.403866120206622e-19
+9.536916833884191e-20
+-6.504056533019101e-21
+1.9113574263789817e-20
+-4.11456180296127e-20
+-1.748307616941912e-20
+-1.095678269508912e-19
+2.6905335430645804e-20
+8.467996564721662e-20
+-1.4950190811086215e-19
+1.2550465052385582e-19
+-2.4363441720013027e-20
+-1.2510843101044292e-18
+2.21703765360424e-19
+1.1166974458617673e-19
+-3.0716890635471243e-19
+4.732849584041395e-20
+4.25914881389867e-20
+-3.880885864854454e-20
+8.402604059890224e-21
+-4.131591383822206e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m0-N4-l2-r1.8.txt b/modes_wolfram/rmode_a1e-06-m0-N4-l2-r1.8.txt
new file mode 100644
index 0000000..63fe141
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m0-N4-l2-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-2.0848405117342098e-19
+-5.217241023424966e-19
+-9.944685686887076e-9
+6.77251375990696e-20
+-9.59962372802812e-20
+-1.5466559217240205e-19
+-2.4952204055522218e-20
+-2.7088914596670023e-19
+1.0093839607298958e-19
+2.035205327032154e-19
+-4.369766772486591e-21
+1.007034994982186e-19
+4.113144720999035e-20
+-9.011711024743934e-20
+-1.7693300911120042e-21
+2.2649391661417383e-19
+5.569086585352866e-11
+-7.74886676299564e-20
+-6.12498480086082e-20
+-1.5157853393151498e-19
+1.80414595749668e-19
+-1.3336965318484535e-19
+1.0953963010864337e-19
+1.2593659910014444e-19
+-1.9010286425976759e-19
+2.597460153931362e-19
+-4.6173858132092367e-20
+-1.1429453215413981e-19
+1.8560260287940544e-19
+-2.25423055302898e-19
+-1.5512137696980283e-19
+-1.0825578198226928e-19
+-8.777362159254883e-20
+5.2339119063292893e-20
+2.317417577454779e-19
+-1.2647350601114773e-19
+-1.2019757069697863e-19
+1.2150365241989338e-20
+1.8429184730279714e-16
+1.2775107899514539e-19
+-2.122596209014977e-20
+-7.431494889131054e-20
+1.7450733250958292e-19
+5.895210455195256e-20
+-1.4297314218237212e-19
+2.6883251566215842e-20
+1.4241537761232995e-19
+1.401463295832578e-19
+-4.184868327159621e-20
+1.0242582695943458e-19
+1.5063786024131572e-19
+-1.4547447349829555e-19
+-9.432306799560755e-20
+1.587551858436129e-19
+-9.734074686651352e-20
+-8.257717195980774e-20
+8.180507408376541e-20
+-1.548118624837691e-19
+-1.680640753166865e-19
+-2.480642046502281e-20
+9.644960818855556e-20
+1.2944694485566954e-19
+6.641018803197288e-21
+-4.941137543793445e-20
+-3.525174674469015e-20
+2.222078227906693e-19
+-1.0816520449350438e-20
+-8.890668813291997e-20
+-8.517108151770011e-19
+-4.9197794171967904e-20
+-3.054023825889391e-21
+7.73135756480175e-20
+-1.0729594066339093e-19
+-2.797733555414619e-20
+3.3495319275165715e-20
+1.463833964079621e-19
+8.342647500893355e-20
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r0.4.txt b/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r0.4.txt
new file mode 100644
index 0000000..0dc07cd
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r0.4.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-2.0751181129111338e-10
+0.000010530796370115083
+-1.6943261542578385e-10
+-0.000010530796370120497
+-2.075118101318833e-10
+-7.925987434079656e-16
+5.889388804492238e-18
+1.032757448796978e-15
+-7.864435183484396e-19
+1.0328999620903535e-15
+-1.7689789896965828e-19
+-7.933972251959613e-16
+-5.340232849901386e-18
+2.314003544132584e-16
+2.913841211541396e-10
+8.948360022990027e-17
+-3.685749528706404e-10
+-8.798822663404451e-17
+2.9138412006755877e-10
+-2.312206267867665e-16
+-3.763029067780322e-18
+5.237047238364224e-18
+9.485753593347467e-18
+7.645424744047839e-18
+8.304486670046677e-18
+6.005587673124872e-18
+-1.0559601584214127e-19
+4.636202576752523e-18
+-8.238567630373635e-18
+7.95311711355863e-18
+-5.680011865565838e-18
+4.563135955486913e-18
+-3.9663493385628204e-18
+-2.4171159450722013e-18
+-5.079681400102416e-18
+-5.182958721154091e-16
+1.004652119272226e-17
+8.406433852359605e-16
+1.485879782886608e-17
+-8.404614131526195e-16
+5.9700110679563185e-18
+5.191036928759181e-16
+-7.644048212110974e-18
+2.860968498962603e-18
+-2.998379070235664e-18
+-3.390285663934713e-18
+7.617278372742073e-18
+-7.08810958329234e-18
+-5.439306779258094e-18
+-2.6053054280898796e-18
+2.693076787406057e-18
+7.000755226402466e-19
+-6.535421670883463e-19
+1.414981669880533e-18
+-1.125952924831988e-18
+-2.9569511768220177e-18
+7.03210402744973e-18
+-7.057713022226489e-18
+-4.220662088784339e-18
+-4.059879432368364e-18
+5.899794374706637e-19
+6.4409127703816764e-18
+-6.833900489141332e-18
+-1.9214126601584673e-18
+-6.205480521039257e-19
+-1.4643845149773797e-18
+-4.8588543686431155e-18
+-7.208562641815335e-19
+2.181136004582809e-17
+-7.35945175927843e-20
+-7.30483462609399e-18
+1.8094718588253146e-18
+-1.4886865126875166e-18
+2.798933106647211e-18
+-6.311826359748858e-18
+-7.10699065285811e-18
+7.825315227377349e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r1.3.txt b/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r1.3.txt
new file mode 100644
index 0000000..fb6e1d4
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r1.3.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-2.6057079908403694e-15
+-1.269208099590147e-9
+-2.1213096170837854e-15
+1.2692080991356608e-9
+-2.6055722255041474e-15
+-3.4539689084134877e-19
+-3.3293652497937057e-19
+-9.968942733168899e-17
+-2.2120553202082214e-20
+-2.612850968526872e-18
+-9.739480083042728e-17
+-4.980776999200916e-19
+6.338697960962842e-19
+4.229237001358863e-19
+-7.812328952622021e-16
+-1.3849491481547943e-18
+9.936602371698712e-16
+1.6274039719245812e-18
+-7.813017552588481e-16
+-5.365174290278023e-19
+6.205856274294858e-19
+3.915208087075756e-20
+9.96231520992165e-19
+-5.831807063641204e-19
+-8.137931627581516e-19
+-6.271756895794946e-19
+3.1891931119128034e-19
+-5.856294065086564e-19
+1.2088467691366262e-18
+-4.808911401818817e-19
+-1.0578561250857027e-18
+1.7255287531802404e-19
+7.415925481980183e-19
+-2.840869632177534e-19
+-1.5035468625004764e-19
+-3.1170576366142183e-19
+-1.2107826702875885e-18
+3.97955457976492e-19
+1.0913432543122871e-18
+-4.069884506054849e-19
+-1.4167862081086442e-18
+2.934222596897224e-19
+-9.622664483576015e-20
+2.836552249896474e-19
+8.349456114937672e-19
+2.787972980696497e-20
+3.599455355267846e-20
+6.079372980451008e-19
+3.546799327441265e-19
+1.2285743871754592e-18
+5.467190462981066e-19
+-6.312350812250107e-19
+1.936802557580113e-19
+-5.722484523333134e-19
+-8.848281997374168e-19
+1.0832631603256982e-18
+-3.0626069237540873e-19
+5.027567954365786e-19
+-1.0442834003010481e-19
+1.3092012081098702e-19
+-1.102969496033268e-19
+-4.329507282189492e-19
+4.84939181785046e-19
+-2.23921526364516e-20
+3.5261244152885935e-19
+5.735904254477455e-19
+7.194420561468611e-19
+-5.1577517134318e-19
+4.0108285432946673e-19
+8.88933445254646e-19
+6.652995426154171e-19
+-7.038961215080482e-19
+5.871770752177208e-20
+-1.9542933558773788e-19
+3.466194795449876e-19
+5.07686073064716e-19
+-1.5190805766615037e-19
\ No newline at end of file
diff --git a/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r1.8.txt b/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r1.8.txt
new file mode 100644
index 0000000..3e3c9bd
--- /dev/null
+++ b/modes_wolfram/rmode_a1e-06-m1-N1-l0.5-r1.8.txt
@@ -0,0 +1,80 @@
+0.
+0.
+0.
+-1.2531757219225479e-18
+-1.526825540098167e-12
+-1.5278948174896158e-18
+1.5268255658246428e-12
+-1.3310795385214837e-18
+4.1008364325047995e-19
+-1.4970740539525037e-18
+9.001098860682261e-19
+-6.15920622738822e-20
+9.22905693148503e-19
+1.491354451718304e-18
+2.8066030303150574e-19
+7.763881105588602e-20
+-3.9972734304731364e-19
+-4.421949967270777e-19
+6.382858501515121e-19
+-2.4584747355271442e-18
+-4.829785418811541e-19
+-3.2895485597693803e-19
+1.4676546896740814e-19
+1.2103335748990722e-19
+-6.691609125173394e-20
+2.140332322101621e-19
+-6.521271239691065e-19
+-4.340700695518899e-19
+2.654759614955498e-19
+-5.344037431454167e-20
+2.4444326981530704e-20
+5.162132581703684e-19
+-5.769305440934513e-19
+-2.0820638386662396e-19
+-1.0378570445076747e-19
+2.4463848729446135e-19
+-4.503411262973411e-19
+-4.8671685182496366e-20
+9.12472975590007e-20
+-2.2634846389077213e-19
+-9.006973887786464e-19
+-1.1742710788081754e-18
+9.72767709158865e-19
+-3.1675359049268585e-19
+3.249722325436031e-20
+-1.269917832320213e-19
+3.5768438950931424e-19
+2.973140932679077e-19
+2.896233063857655e-19
+4.677201724070813e-19
+2.0104119699079363e-18
+1.157673487811456e-19
+-6.226576088128237e-19
+1.6210561227833816e-20
+8.313300938516327e-19
+5.444841115575204e-20
+8.440014558144011e-19
+-1.4245355886527933e-19
+-5.310610883700667e-19
+3.9134843345984515e-20
+2.0243045113381847e-18
+-3.836922650967532e-19
+3.251461186704697e-19
+-1.3964612645891238e-19
+-5.178829688208674e-19
+-7.451677688978282e-21
+-6.948892260456319e-19
+8.6072271351018e-20
+3.235666439158413e-20
+1.1378847347754145e-19
+-1.3583697464309015e-19
+-6.449553920711095e-20
+2.421574826209614e-19
+7.808185952615417e-20
+9.591861257262731e-20
+1.4571276753632887e-19
+6.564154822512305e-19
+-9.90503761450908e-20
+4.738888740811404e-19
+-1.1093047771231868e-19
\ No newline at end of file
diff --git a/psi4_analytical/psi4-m0-a1e-06-L0.5-N1.txt b/psi4_analytical/psi4-m0-a1e-06-L0.5-N1.txt
new file mode 100644
index 0000000..a1de3db
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L0.5-N1.txt
@@ -0,0 +1,13425 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
+             3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-1 + 3*Cos[2*theta]) + (3*((-21*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             ((3*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                 (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                Sin[theta]^2)/4 + 3*((3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2)^2))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - 
+              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                   E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-3 + Csc[theta]^2)*((3*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) - 
+            ((3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                 (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                    (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/
+                  r))/4 + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-3 + 
+                Csc[theta]^2))*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + 
+                Csc[theta]^2))))/(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                   E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*((3*((-21*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 
+                 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                 (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                  E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
+            3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                   E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) + 
+   ((r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2)*
+        ((-1.*^-12*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
+               (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(-2.5*^-7*(6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])) - 
+              (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               2 + 9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Sin[2*theta]^2)*((-3*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
+            ((9.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
+                (1 + 3*Cos[2*theta]) + 3*((3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*(2 + 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
+                (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[theta]^
+                   2 + 3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                  Cos[theta]^2 + 7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                      3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2) - 
+       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*
+           (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2)*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*
+           ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
+              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (1.*^-6*(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/4))*
+             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
+            ((((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                (-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                   2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) - (3*((21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+              (-4 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+               1.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2)*
+           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
+              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+            ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*r*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 3*Sin[theta]^2)))*
+            (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2) + 
+             2*(-3*r*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                 (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^6) - 6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) + (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2)/2 + (3*r*
+                 ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                  (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                  (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                     (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-2 + 3*Sin[theta]^2)) + 0.000027*
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+               (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*Sin[2*theta]^2 + 0.000027*((-3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
+           (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2) + 1.*^-6*
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+               (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+               (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
+            (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
+          (2*r^2*(-9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 3*Sin[theta]^2)))^2) + 
+         (1.5*^-6*(3.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
+              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) - (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 6.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) - 
+       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((1.5*^-6*Cos[theta]*Sin[theta]*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*
+           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2))/
+          (r*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            (1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2) - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (4 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+              6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2) + 
+            6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(Cos[2*theta] - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (1.*^-6*(-0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2 - 7.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2))*
+             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
+            ((4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2 + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2 - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                   2) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+                 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2 + 
+                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) - 
+                   (3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))*
+              (-4 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+               1.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
+              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[theta]^2 - 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2))/
+               2) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-6 - 
+                   3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[2*theta])*
+             (-8 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(4 - 
+                12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/
+    (Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                   E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*((3*((-21*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 
+                 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                 (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                  E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
+            3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2)) - 
+         (1.*^-6*((-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             ((3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                 (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                    (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                Sin[theta]^2)/4 + 3*((15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^6)*(1 - 3*Sin[theta]^2)) - 
+            (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*
+             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
+              3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                   E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+               (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*
+                 (0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                    E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                   (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                  r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
+             3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+             6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
+                2))^2/(r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + 
+                Csc[theta]^2))^2) + 
+         (7.5*^-13*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
+                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*
+           ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (21*
+                 (0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                    E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                   (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                  r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
+            3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+             (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+         (1.125*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)^2 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*(7.5*^-7*r^2*(39.375/(E^(4.*r^2)*r^6) + 
+               (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+               (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+               (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                  E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                   (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                   (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                    E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r) + 
+             4*Csc[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             3.*^-6*r^2*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^6)*(-3 + Csc[theta]^2)) + 
+           (2.25*^-12*r^2*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)^2 + 9.000000000000001*^-12*r^2*
+              (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-6.5625/(E^(4.*r^2)*r^5) - 
+               (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*
+                 (0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                    E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                   (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                  r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(-1 + 3*Cos[2*theta])*
+              Csc[theta]^2 + 9.*^-12*r^2*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-11*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(39.375/(E^(4.*r^2)*r^6) + 
+                 (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                 (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                    (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/
+                  r) + 2*Csc[theta]^2 + 3.*^-6*r^2*(5.625/(E^(4.*r^2)*r^6) + 
+                 (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                 (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^6)*(-3 + Csc[theta]^2)) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                 r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                 (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^6)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                 (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                    (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
+                2))^2) + (7.5*^-7*(4*r*(1.875/(E^(4.*r^2)*r^5) + 
+              (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                   E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
+                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            9.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2 + 9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 
+              9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) - 
+   ((r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2)*
+           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
+              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+            ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(1.875/(E^(4.*r^2)*r^5) + 
+              (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (2.5*^-7*(1.*^-6*((-3*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(1 - 3*Cos[2*theta] + 6.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
+             (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])) + (3*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               2 - 9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Sin[2*theta]^2) + 
+            2*(9.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta]) + 3*((15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^6)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(
+                3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]^2 + 3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                     3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 - 
+                3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (1.5*^-6*(3.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
+              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) - (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 6.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) - 
+       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2)*
+           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2))*
+           ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
+              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            (1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2) - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (4 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+              6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2) + 
+            6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(Cos[2*theta] - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            9.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2 + 9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 
+              9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (1.*^-6*r*(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/4))*
+             ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
+            (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/4))*
+             (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) - r*(((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r^2)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
+                1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/4) - 1.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/4) + 1.*^-6*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^6) - (3*((105*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+             (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
+              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[theta]^2 - 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2))/
+               2) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-6 - 
+                   3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[2*theta])*
+             (-8 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(4 - 
+                12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+          Sin[theta]^2)*
+        (-1/4*(r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                2*Sin[theta]^2 - (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
+                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*
+           ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
+              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+           6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+            (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+              0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+           Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+           3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)^2*Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
+           (4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(1.875/(E^(4.*r^2)*r^5) + 
+              (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+            ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2)*(-3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            9.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2 + 9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 
+              9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (r*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 7.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 3*Sin[theta]^2)))*
+            (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*
+                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2) + 
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-3*r*(5.625/(E^(4.*r^2)*
+                   r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) - 9*
+                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+               (9*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2)/4 + (3*r*
+                 (39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                  (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                     (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
+              (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
+           2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 7.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 3*Sin[theta]^2)))*
+            (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
+           r*(3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 7.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2) + 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+               (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(1.875/(E^(4.*r^2)*r^5) + 
+               (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+               (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
+            (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-7*(-6.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
+              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-4 + 
+                3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta])) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
+             (4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-4 + 
+                3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 6.*^-6*(18*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(r^2*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) - 
+       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+            (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+              0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+           Cos[theta]*Sin[theta]*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+           3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)^2*Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
+           ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
+                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+           3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)^2*Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2))*
+           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
+              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+            (1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2) - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (4 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+              6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Sin[theta]^2) + 
+            6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*(Cos[2*theta] - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4))*
+           Sin[2*theta])/(r*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (1.*^-6*(-0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2 - 7.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]^2))*
+             ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
+            ((4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]^2 + 3*(-0.9375/(E^(4.*r^2)*
+                   r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                 (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + 3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                   2) + (1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                    (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+                 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-9*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
+                 r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                     (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^6) - (3*(39.375/(E^(4.*r^2)*r^6) + 
+                      (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))*
+              (-4 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+               1.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-6 - 
+                   3.*^-6*Cos[2*theta]))/4) + 6.*^-6*r*(1.875/(E^(4.*r^2)*
+                  r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[2*theta] + 6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
+              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 1.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
+              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*(1 + 
+                7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 9.*^-6*r*(
+                1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
+              9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta]) - 9*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
+                  2))))/(r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
+                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
+             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/
+    (Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L0.5-N2.txt b/psi4_analytical/psi4-m0-a1e-06-L0.5-N2.txt
new file mode 100644
index 0000000..bc91941
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L0.5-N2.txt
@@ -0,0 +1,22762 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
+                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^5)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
+                       0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-1 + 3*Cos[2*theta]) + (3*((-21*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             ((3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 
+                    0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                      (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                     E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                 (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
+                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
+                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4 + 3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^5 - (3*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                   E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2)^2))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
+                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
+                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+             ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 + 
+                Csc[theta]^2)) + 3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (-3 + Csc[theta]^2)*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 + 
+                Csc[theta]^2)) - (7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + 
+                Csc[theta]^2))*((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^5 - (48*((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                 (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
+                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
+                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 
+              3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 + 
+                Csc[theta]^2))))/(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+              (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
+                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+               (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
+                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+              Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+              (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
+                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
+                4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - 
+          (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+          ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+            ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+            (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+            0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+             r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+              E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*(3*((-3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+               (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+            (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+             (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2) - 
+             3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(4 - 3.*^-6*r*
+                (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6.*^-6*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+               3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 7.5*^-7*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+            (-8.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
+                   3*Cos[2*theta])))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+                Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                    (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                     r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/
+                2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) + 
+                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 - 
+                    3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-0.75/(E^(4.*r^2)*
+                   r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])*
+              (-8 + 3.6*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+            (((4.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*((-21*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2 + 
+                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                 (2 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                    (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)))/r^4) + 2.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                    (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+                  1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                     r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 + 
+                  3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                     r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 
+                         0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                       E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
+                  6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                    (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)))/r^4) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+                  7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+                    (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                    (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                    (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                        ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                      (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                       E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                      8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 
+                      0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+                1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                 ((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                         E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                        (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                        (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                     (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                         E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                          (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                     (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                          E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                         ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                       (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                        E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                          2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
+                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2))/r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                         (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                         0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                         (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
+                         (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                      (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                         E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                          (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
+                    (3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2))/r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                          (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                          0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
+                          (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                       (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                          ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                          E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/
+                        r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                          ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                          (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                          (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                          2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                          0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                          0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./
+                          E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                         0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 
+                         8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                         8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                         8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.25*r)) - 
+                         8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
+                          0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                          (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                          8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                         8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 
+                          0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                          128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
+                          (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                          (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                          E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                          24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*(-4 + 
+                1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
+                3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+                1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                   (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                     r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                    3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                 (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+                 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                   (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+                 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                    (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                     r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+                4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-1 + 3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
+                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+            (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+             r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+            (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+            (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+               (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                 r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 
+              0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+              8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+              ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
+                (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 
+              8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+             (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+               (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                    (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                     r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+             6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 1.*^-6*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*
+                (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+             ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3.*^-6*r*
+                (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
+                   3*Cos[2*theta])))*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
+              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
+              (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+               3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2) - (-3.*^-6*((-3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+              (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+               3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2) + 6.*^-6*(3*((-3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 3*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]*
+              Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+               3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)^2) - (5.*^-7*r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
+             (6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 + 
+                3*Sin[theta]^2)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+                7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              2*(-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                3*r*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) + 
+                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/2 + (3*r*((105*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                   (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                   (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
+                       ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                         E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                        (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                         2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/
+                    r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                     8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                      (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                      (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                         8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                     (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                       128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 
+                       24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                          2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
+                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
+              0.000027*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
+              0.000027*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
+            (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+                7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                 (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
+                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
+             (3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 + 
+                3*Sin[theta]^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              1.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4)*(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
+           (2*r^2*(-9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                2*Sin[theta]^2 + (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2)))/
+       (Sqrt[2]*r) + (-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - 
+         (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+            (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+         ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+           0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+           (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+           0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+           ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) + 
+                    0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                      (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                     E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*
+                     r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) - 
+               1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^5 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
+                 (3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                         (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                    (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
+                        ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                          E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                         (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
+                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                      0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                         E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                          (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
+                          r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                        (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                       (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                          8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                      0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                      (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
+                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                        128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                        16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                         E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                        (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                        (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                        24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-11*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2)) + 1.*^-6*(((6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 - 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4))*((3*((-21*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
+                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)*
+                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+           (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+           (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+            r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+               (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                    (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                     r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2 + (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
+                        0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2*
+                (1 + 3*Cos[2*theta]) + 3*((3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
+                 (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                     (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                    E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*
+                (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 6*
+                Sin[theta]^2*(3.*^-6*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                       0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)^2*Cos[theta]^
+                   2 + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                  ((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                         E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                        (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                      0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r^2)*
+                  Cos[theta]^2 + 7.5*^-7*((-3*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                  ((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  (-2 + 3*Sin[theta]^2) + (((21*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                     r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                         (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                    (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
+                        ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                          E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                         (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
+                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                      0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                         E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                          (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
+                          r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                        (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                       (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                          8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                      0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                      (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
+                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                        128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                        16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                         E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                        (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                        (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                        24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*
+                        r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                         E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 
+                          8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^
+                        2)))/4))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+               6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((-3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               2 + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)*
+             ((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7*
+                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*
+                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
+                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+              (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
+                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+               (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
+                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+              Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-13.125/(E^(4.*r^2)*r^4) - 
+                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*
+              ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 3*
+                ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*
+                  r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                 r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             ((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                 (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
+                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
+                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4 + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+              (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
+                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
+                4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
+                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*
+                 r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+               (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+               (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
+                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
+             2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+               (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+             6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
+                2))^2/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + 
+                Csc[theta]^2))^2) + 
+         (7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+            ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+              ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+              (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+             r^5)*(1 + 3*Cos[2*theta])*
+           ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+               (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
+                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+              Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+               ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
+                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+            Sin[theta]^2) + (1.125*^-12*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)^2 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
+                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+            (7.5*^-7*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^5 - (87*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+               (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+               (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/r^2 + 
+               (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 
+                 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                     (0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                    E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0. + 0.25*r)) - 8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
+                    8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + 
+                 (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) + 
+                 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                   (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                   (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                    E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                    E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                   (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                     r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^5 - (9*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
+           (2.25*^-12*r^2*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)^2 + 
+             9.000000000000001*^-12*r^2*(-1.875/(E^(4.*r^2)*r^4) - 
+               (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+               (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
+                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 9.*^-12*r^2*
+              (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-11*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
+                 (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                 (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
+                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
+                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) + 2*
+                Csc[theta]^2 + 3.*^-6*r^2*(11.25/(E^(4.*r^2)*r^5) + 
+                 (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 + 
+                 Csc[theta]^2)) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
+                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-1 + 
+                 3*Cos[2*theta]) + 1.5*^-6*r^2*(78.75/(E^(4.*r^2)*r^5) + 
+                 (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                 (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
+                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
+                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r) - Csc[theta]^2 + 
+             3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
+                2))^2) + (7.5*^-7*(4*r*(3.75/(E^(4.*r^2)*r^4) + 
+              (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
+                3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - 
+              (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
+                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
+                2)))/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - 
+         (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+            (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+         ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+           0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+           (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+           0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2 + (3.*^-12*Cos[theta]*Sin[theta]*
+           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2))*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*
+                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                  r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
+                4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+            (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(4 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
+              6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+              3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*
+                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
+                2)))/((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+           (-8.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
+              3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
+                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
+                  3*Cos[2*theta])))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+               Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/
+               2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 - 
+                   3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-0.75/(E^(4.*r^2)*
+                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])*
+             (-8 + 3.6*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 6.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(4 - 
+                12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2 - (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+               1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                 (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                    (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                    (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                        ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                      (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                       E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                      8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 
+                      0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2)/
+                  4))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2)) - r*(((-30*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^5 + (15*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 - 
+                (5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r^2)*(1 - 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) - 
+              1.*^-6*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(
+                3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                (3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4) + 1.*^-6*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(
+                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
+                (3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                   (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                   (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
+                       ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                         E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                        (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                         2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/
+                    r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                     8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                      (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                      (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                         8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                     (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                       128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 
+                       24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                          2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
+                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
+             (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 1.*^-6*r*(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 - 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4))*((3*(-13.125/(E^(4.*r^2)*r^4) - 
+                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
+                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)*
+                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+           (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+           (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+            r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
+                4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+           (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
+                4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+            ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 + 
+            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
+           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]*
+           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
+              3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
+                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
+                  3*Cos[2*theta])))*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) - (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 6.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
+              3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]*
+             Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
+                      0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1.875/
+                 (E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta]) + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 
+              6*Sin[theta]^2*(3.*^-6*(3.75/(E^(4.*r^2)*r^4) + 
+                  (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                 ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+                3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                 ((-30*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^5 + (15*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 - 
+                  (5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                 (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                 ((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                   (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                   (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
+                       ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                         E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                        (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                         2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/
+                    r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                     8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                      (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                      (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                         8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                     (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                       128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 
+                       24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                          2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
+                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2))))/r)*(-1 + 3.*^-6*
+                    (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                        (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                    (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
+               (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 - 
+                3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 1.*^-6*((-3*(-13.125/(E^(4.*r^2)*r^4) - 
+                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7*
+                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*
+                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)*
+             (-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               2 - 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2))/(2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
+                (4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
+                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
+             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
+                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                 r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+            ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+              ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+              (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+             r^5)*(1 + 3*Cos[2*theta])*
+           ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
+                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+            Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+              r^4)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+            (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+               (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 
+              0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+              8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+              ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
+                (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 
+              8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+           Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(1 + 3*Cos[2*theta]) + 
+            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
+                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+            Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+              r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)^2*Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
+           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
+           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
+            ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 + 
+            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*Sin[2*theta]^2)*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - 
+              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
+                2)))/(r^3*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
+              3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
+                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
+                  3*Cos[2*theta])))*(-4*r*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 
+              0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) + (-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 + 
+                3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta])) - 6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                  (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
+             (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) - 
+              0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 + 
+                3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                  (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*
+                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                  r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 6.*^-6*(18*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+              3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
+              6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+                  (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2)))/(r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)))*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*
+                   r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+               (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-1.875/(E^(4.*r^2)*
+                   r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 3*r*
+                (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
+                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) + 
+               (9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)/4 + (3*r*
+                 (78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
+                  (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                  (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                  (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                         3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                        8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
+                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                    8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. + 0.25*r)) - 8.*
+                     (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                         E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                        (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                        0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                      (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                     (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
+                        8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                    0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                    (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) - 
+                    8.*(-2./E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                      128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                         2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
+                      (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                         2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                       E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
+            (3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*
+              (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+               (3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - 
+         (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+            (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+              (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+         ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+           0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+           (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+           0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+            (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+               (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 
+              0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+              8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+              ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
+                (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 
+              8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
+           Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
+                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+            Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+              r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)^2*Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
+           ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+            ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+              ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+              (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
+            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+             r^5)*Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
+           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
+                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
+            Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+              r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)^2*Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
+            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2))*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+              6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
+                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
+              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) + (7.5*^-7*(4*r*(3.75/(E^(4.*r^2)*r^4) + 
+              (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
+              (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + 
+                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
+                3*Cos[2*theta])))*(1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2 + (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
+              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+               r^4)*(4 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
+              6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+              3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
+                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
+                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 
+              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4))*
+           Sin[2*theta])/(r*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
+                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 3*(-1.875/(E^(4.*r^2)*
+                   r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                (2 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4) + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                   (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+                 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 1.5*^-6*
+                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+               (3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 + 
+                 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+                 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                   (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
+                  Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                ((-9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                     r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                    (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                    (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                        ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                      (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                       E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
+                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                      8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 
+                      0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2)/
+                  4 + r*(3*(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                      r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                        (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
+                        (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                     (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
+                   (3*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
+                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                       r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                         (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                         0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                         (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
+                         (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
+                      (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                         ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                         0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                          (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
+                      (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                          ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                         (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
+                          (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
+                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
+                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                         2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                         0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
+                         0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./
+                          E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
+                        0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 
+                        8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                        8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
+                          2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                         (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
+                        8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.25*r)) - 
+                        8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
+                          r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
+                          (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
+                          8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                         (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                         (0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
+                        8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 
+                          0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
+                          128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
+                         (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                          (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                          E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                          24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*
+              (-4 + 1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*
+                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+               1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                   3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(0.375/(E^(4.*r^2)*
+                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                  r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)*(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - 
+                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
+                7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 + 
+                3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
+                1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+                7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)))/r)*Sin[theta]^2))*
+             ((3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
+                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
+                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
+                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
+                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
+                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
+                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
+                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
+                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
+                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
+               4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
+                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)*
+                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - 
+               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
+           2 + (3.*^-6*Sin[2*theta]*((3*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 - 
+                   3.*^-6*Cos[2*theta]))/4) + 6.*^-6*(-0.75/(E^(4.*r^2)*
+                   r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
+                2*theta] + 6.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - 
+                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta] - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
+                6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2) + 1.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + 
+                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
+                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
+              3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
+                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
+                2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
+                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
+                  3*Cos[2*theta])))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - 
+                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
+                3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
+                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
+                2 + 9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
+                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+              3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
+                3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
+                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
+                 (1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
+                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
+                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
+                  2))))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
+                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
+                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
+                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
+                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
+                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
+                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
+                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
+                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
+                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
+                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
+                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
+                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
+                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
+                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
+                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
+              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L0.5-N3.txt b/psi4_analytical/psi4-m0-a1e-06-L0.5-N3.txt
new file mode 100644
index 0000000..41aeb8f
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L0.5-N3.txt
@@ -0,0 +1,26314 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
+                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
+                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 
+             3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
+           2 - (1.*^-6*(-5.*^-7*(3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + (3*((21*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*((3*((21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                 (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
+                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
+                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                    (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                    (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
+                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                      E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 
+                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
+                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
+                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
+                Sin[theta]^2)/4 + 3*((3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
+           2))/Sqrt[2] + ((I/2)*r*Sin[theta]*
+        (1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
+                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
+                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-26.25/(E^(4.*r^2)*r^3) + 
+              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))))/r)*
+             ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 
+              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 
+              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) - 
+            (7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                 (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
+                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
+                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                    (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                    (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
+                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                      E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 
+                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
+                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
+                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r))/4 + 
+              3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + 
+                  (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
+                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - 
+            Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + 
+          (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+           r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+          (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+            (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^
+                (4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+            0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+             r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+            ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
+         Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+              (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                       r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+            Sin[theta]*(1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+             (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(2 - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2) - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*Cos[2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(Cos[2*theta] - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+            (-8.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+               (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
+                  (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
+              (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+               (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
+                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                  7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                     r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2))/
+                2) + (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                 ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                    (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1.*^-6 - 
+                    3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-1.5/(E^(4.*r^2)*
+                   r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*Cos[2*theta])*(-8 + 3.6*^-11*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 6.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               1.8*^-11*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+            (((4.5*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2 + 
+                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3)*(2 - 0.000012*(0.75/(E^(4.*r^2)*r^2) - 
+                    (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                  2.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                       (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                    (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                        r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+                  1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                     r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+                ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                  (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.75/(E^(4.*r^2)*
+                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                  3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                     r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                        r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                  1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                     r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+                  7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                     r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                    (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
+                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                   Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                          r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                        ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                     (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                          r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                        (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                     (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                         E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                          2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                        1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                        8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                        E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                       6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                        ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                         (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
+                          r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
+                          r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                       8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                          E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                    Sin[theta]^2)/2 + r*(3*((-15*((0.75*r^2)/E^(4.*r^2) + 
+                         (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                      (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + 
+                         (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                          E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                          E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*
+                          r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                          E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/
+                         E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                        2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                         r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                        0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                        ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                         E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                        8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                        r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                          r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                       (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                          r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                          (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                       (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                          E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                          2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                          0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                          1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                          8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
+                          2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 
+                          8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                          (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                          3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                          6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                          ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                          1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                          (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                          ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                          (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                          E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                          (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                          E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 
+                         6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                          1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                          E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                         2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^2 + 0.75*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                         0.25*r^3*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                          E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                          (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 
+                         8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                          E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - 
+                          (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*
+                          (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
+                          E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                         ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 
+                          8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/
+                          E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 
+                         8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + 
+                          (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
+                          (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                          r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                         ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 
+                          8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
+                          r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
+                          ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                          E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                          ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
+                          r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))) + 
+                         1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                          8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)))*(
+                -4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                    (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                    (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                         r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1 + 
+                    3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*
+                   r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                   (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*
+                  (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                   (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2))*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*
+                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+            (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+             r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+          7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+               (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+            (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+            (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+            (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+              2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+              3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+              1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+              8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
+                (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+         ((5.*^-7*(-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+             (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(
+                -1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+               (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
+                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+            Sin[theta]^2*(-0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+             6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+              (-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+            Sin[theta]^2*(6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] - 
+             ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(2 - 6.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+               (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
+                  (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
+              (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2) - (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2) + 6.*^-6*(3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2) - 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+              (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)))*(6*((3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                 (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3) - 3*r*((-15*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                  (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3) + (3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                   (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2)/2 + (3*r*((-105*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                   (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
+                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
+                   (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                       1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                      E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                     2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                      (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                      (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                     8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                          2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                        8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                     8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                         0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                       (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                       24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                     ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                        8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                      E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                        E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                       (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                        E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
+                      (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)*(-1 + 
+                3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (-2 + 3*Sin[theta]^2)) + 0.000027*(
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
+                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2 + 
+              0.000027*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2) - 
+            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                 (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
+                0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+               Sin[2*theta]^2)*(3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(
+                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2)/4)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2))/(2*r^2*
+            (-9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+            (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+         (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+            ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+         (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+           (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+           0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
+        Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                  E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
+                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                  E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
+                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4))*((3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*
+                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*
+                (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*(3*((3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^3) - (3*((21*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                    (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                         r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                    (9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 
+                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                        E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                       6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                        ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                         (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
+                          r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
+                          r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                       8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                          E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/
+                     r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                        1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                       E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                      2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                       (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
+                         E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                         8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                      8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                          0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                        (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                        24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                      ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                         8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                       E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
+                       ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                        1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 
+                          8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                        8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*
+                          r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - 
+                        (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
+                   Sin[theta]^2)/4))*(-4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)) + 1.*^-6*(((-6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2)/4))*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+           (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+         7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+               (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
+                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]^2*(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4)))/((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                       r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3)^2*(1 + 3*Cos[2*theta]) + 3*((3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
+                (3.*^-6*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                    (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                         r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)^2*Cos[theta]^2 + 
+                 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+                  ((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*
+                  Cos[theta]^2 + 7.5*^-7*((3*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  (-2 + 3*Sin[theta]^2) + (((21*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                    (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                         r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                    (9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 
+                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                        E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                       6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                        ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                         (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
+                          r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
+                          r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                       8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                          E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/
+                     r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                        1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                       E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                      2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                       (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
+                         E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                         8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                      8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                          0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                        (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                        24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                      ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                         8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                       E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
+                       ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                        1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 
+                          8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                        8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*
+                          r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - 
+                        (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
+                   (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                       r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+              (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 
+                3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) - (3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
+                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
+                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + 
+                  (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
+                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - 
+            Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + 
+                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(-26.25/(E^(4.*r^2)*
+                   r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(1 - 3*Sin[theta]^2))) + 
+            (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*((3*((-105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                 (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
+                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
+                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                    (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                    (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
+                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                      E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 
+                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
+                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
+                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
+                Sin[theta]^2)/4 + 3*((-15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
+           2 + (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
+                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
+                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+               (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + 
+                  (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
+                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 
+             2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+               (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                 r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^
+                (4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^
+                (4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+           (1 + 3*Cos[2*theta])*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
+                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+             (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+              r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+               0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+             (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+              r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+              r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+               2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+            Sin[theta]^2) + (1.125*^-12*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)^2 - 
+           7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+             (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+             (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
+                (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+            (7.5*^-7*r^2*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+               (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+               (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
+                r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
+                    (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                    (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                   r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                  6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 
+                 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                     8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                   1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
+                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                 (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r + 
+                 1.5*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 + 
+                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                  (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                   (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                   (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                    E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*
+                     r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                    E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 
+                 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+                 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                   (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                    8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + 
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 
+                 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                    E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                   (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*
+                     (0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 
+                        0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 
+                     24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 
+                 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+               (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+               (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
+           (2.25*^-12*r^2*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)^2 + 9.000000000000001*^-12*
+              r^2*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
+                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
+              (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                 (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
+                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
+                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                    (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                    (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
+                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                      E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 
+                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
+                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
+                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r) + 2*
+                Csc[theta]^2 + 3.*^-6*r^2*(22.5/(E^(4.*r^2)*r^4) - 
+                 (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) - 
+             3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                 (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                 (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
+                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
+                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                    (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                    (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
+                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                      E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 
+                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
+                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
+                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
+                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
+                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
+                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
+                Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r) - Csc[theta]^2 + 
+             3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
+            3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - 
+            Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+            (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+         (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+            ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+         (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+           (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+           0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
+        Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]*
+           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*
+           ((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2 + (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 6.*^-6*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) + 
+            6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                  E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
+                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4))*(-3*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+           (-8.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
+                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2*Sin[theta]^2 - 
+              (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
+                     r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                        r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2))/2) + 
+            (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              6.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*
+                (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                 (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                    (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                         r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                    (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
+                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                   Sin[theta]^2)/4))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)) - r*(((30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 - 
+                (30*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 + 
+                (15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^4 - (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                    E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                      E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r^2)*(1 - 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                   (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2)/4) + 1.*^-6*(7.5/(E^(4.*r^2)*r^3) - 
+                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2)/4) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                  (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                   (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
+                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
+                   (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                       1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                      E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                     2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                      (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                      (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                     8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                          2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                        8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                     8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                         0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                       (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                       24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                     ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                        8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                      E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                        E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                       (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                        E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
+                      (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4))*
+             (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2) + 1.*^-6*r*
+             (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2)/4))*((3*(-26.25/(E^(4.*r^2)*r^3) + 
+                 (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+           (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+         7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
+           (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
+                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
+                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]^2*(6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] - 
+            ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
+           (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                  E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
+                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
+                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
+                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+             (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
+                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2) - 
+            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
+                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2) + 6.*^-6*
+             (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
+                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2) - 
+              3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
+              3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                 (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                  (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^2)*Cos[theta]^2 + 3.*^-6*
+                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+                 ((30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^6 - (30*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 + 
+                  (15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                  (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                 (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                   (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                   (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
+                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
+                   (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                       1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                      E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                     2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                      (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                      (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*
+                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                     8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
+                        E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                          2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                        8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                     8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                         0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                       (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                       24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                     ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                        8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                      E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                        E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                       (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                        E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
+                      (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))))/r)*(-1 + 3.*^-6*
+                    (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                        (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                     ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+                3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2) + 1.*^-6*
+             ((-3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)*(-6*((3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 
+                3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + (3*((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+           (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+            r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+         7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+           (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
+                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                 r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^
+                (4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^
+                (4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^
+                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+           (1 + 3*Cos[2*theta])*((3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+             (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+              r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+              r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+               2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+           6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+            Sin[2*theta]^2) + (2.25*^-12*
+           ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+             r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+            (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+            (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+              2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+              3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+              1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+              8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
+                (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]^2)/(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+             (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+             (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
+                (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+           3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+            Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
+           (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
+           (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Cos[2*theta] - ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
+                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*Sin[2*theta]^2)*(-3*r*(-3.75/(E^(4.*r^2)*r^3) + 
+              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
+                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2) + 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 + 
+                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) - 6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-6*
+                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - 
+                  (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                  (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(7.5/(E^(4.*r^2)*r^3) - 
+                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 + 
+                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-6*
+                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - 
+                  (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                  (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2) + 6.*^-6*
+             (18*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+              3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) - 
+              6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2 + 
+                r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                  (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+               (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2) + (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.*^-6*r*(-9*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) - 3*r*(22.5/(E^(4.*r^2)*r^4) - 
+                 (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3) + (9*(-26.25/(E^(4.*r^2)*r^3) + 
+                  (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)/4 + (3*r*
+                 (157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
+                  (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + 
+                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                      E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                        E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                     0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
+                  (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                      1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                     E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                    2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
+                     (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*
+                     (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 
+                    24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
+                       E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                       E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                         2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                       8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
+                    8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                        0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                       E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                      (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                    3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                       8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                     E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
+                      (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
+                     (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
+              (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+               (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+               (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3) - (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
+               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - 
+               (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+            (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+         (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+            ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+         (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+           (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+           0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
+        Sin[theta]*((1.5*^-12*r*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*
+                 (0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+            (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+            (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                 (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+            (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+              2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+              3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+              1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+              8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
+              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
+                (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+             (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+              r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+              r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+               2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+           3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+            Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
+           ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+             r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+            (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+              0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                  E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
+                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
+                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2)/4)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+             (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+             (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
+                (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+           3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
+                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+            Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
+                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) + (7.5*^-7*(4*r*(7.5/(E^(4.*r^2)*r^3) - 
+              (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2) - 
+            0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + 
+              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                 E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
+                2)*(-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
+                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 6.*^-6*(
+                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
+                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
+                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) + 
+            6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                Sin[theta]^2 + 3*(-3.75/(E^(4.*r^2)*r^3) + 
+                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^3)*(2 - 0.000012*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
+                 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+                 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                   (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^2) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2) + (7.5/(E^(4.*r^2)*
+                   r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                 (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                   (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                        8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
+                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                  Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)*((-9*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
+                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+                     r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                    (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
+                          r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
+                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                   Sin[theta]^2)/4 + r*(3*(22.5/(E^(4.*r^2)*r^4) - 
+                     (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + 
+                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                        ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                     (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                          r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                        (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                     (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
+                        r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2)))/r^3) - (3*(157.5/(E^(4.*r^2)*r^4) - 
+                      (630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + 
+                         (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                         ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
+                      (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                          r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                         (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                      (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                          E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                          2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                         1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                         8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                          E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
+                         2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                          E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 
+                          8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
+                          (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                         3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                         6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                         0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                         0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                          ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                         1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - 
+                         (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                         ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                          (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                          E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                          (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                          (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                          E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 
+                        6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                          1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
+                         E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
+                        2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^2 + 0.75*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                        0.25*r^3*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                          E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - 
+                          (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 
+                        8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                          E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - 
+                          (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*
+                         (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
+                          E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                        ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 
+                          8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/
+                         E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                         (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 
+                        8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + 
+                          (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
+                          (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                          r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                        ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
+                          8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
+                         E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
+                         ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                          1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./
+                          E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                          E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
+                         (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                          8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)))*
+              (-4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*
+                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                        r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(0.75/(E^(4.*r^2)*
+                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+              6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
+                1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-2 + 
+                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
+                1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                 (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
+                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
+                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*
+                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
+                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                       E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
+                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
+                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
+                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2))))/r)*Sin[theta]^2))*
+             ((3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
+                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*
+                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
+                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
+                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
+                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
+                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
+                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
+                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
+                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
+                7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
+                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
+                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
+              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
+                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 
+                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
+             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
+               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]*
+           ((3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
+                ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
+                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                        E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[2*theta] + 6.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - 
+                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Cos[2*theta] - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(3*r*(-3.75/(E^(4.*r^2)*
+                    r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                       r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3) + 6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
+                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
+                 Cos[2*theta]))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2) + 1.*^-6*
+             (9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
+              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
+                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                  0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
+                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
+                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
+                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
+                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
+                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])*(1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                       E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
+                    E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                  r^2)^2*Sin[2*theta]^2 + 9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + 
+                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
+                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - 
+                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
+                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
+                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
+                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)*(3*r*(-3.75/(E^(4.*r^2)*
+                    r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
+                       r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^3)*(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
+                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
+                   r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
+                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
+                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
+                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
+               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
+                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
+                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
+              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
+                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
+               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
+                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
+                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
+                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
+                      r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
+                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
+                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
+                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
+                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
+                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
+                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
+                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
+                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
+                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
+                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
+                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 
+                  0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L0.5-N4.txt b/psi4_analytical/psi4-m0-a1e-06-L0.5-N4.txt
new file mode 100644
index 0000000..89ecf1a
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L0.5-N4.txt
@@ -0,0 +1,26520 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
+           2 - (1.*^-6*(-5.*^-7*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta]) + (3*((21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*((3*((21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^5 - (21*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^3 - (2*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
+                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
+                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
+                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                      E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
+                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
+                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
+                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 
+              3*((3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
+           2))/Sqrt[2] + ((I/2)*r*Sin[theta]*
+        (1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-52.5/(E^(4.*r^2)*r^2) + 
+              (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+               r^5 - (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+              ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                   E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
+                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+             ((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r))/4 + 
+              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2)*((3*((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r))/4 + 
+              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) - 
+            (7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r) - Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^3 - (3*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
+                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
+                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
+                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                      E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
+                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
+                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
+                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r))/4 + 3*((-15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
+            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
+                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+               (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
+            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
+                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])))*(1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+             (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+          (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+          ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+            (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^
+                (4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+            0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+             r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+            ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
+         Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+              (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+               (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2))/(r*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+            (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+              (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
+             (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) - 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                Cos[2*theta] + 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              (Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^4)))/((-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+            (-8.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
+               (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)/4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Cos[2*theta] + 3*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*
+                 ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                    (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                        E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                   (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*Sin[theta]^2))/2) + 
+             (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                 ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+               3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+               6.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+            (((4.5*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 ((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+                3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (2 - 0.000012*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/
+                        E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                  2.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                    (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
+                     r^2) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                    (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                        E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                    (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                    (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*Sin[theta]^2) + 
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2)*(-2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                    (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                        E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2))/r^3) + 3.*^-6*r*
+                   (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                    (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
+                     r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                    (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                        E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                    (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                    (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                   (-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                    (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
+                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                      (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                        r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*
+                 (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                 ((-3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                         E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                        ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                     (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                        (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                        ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                     (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                        3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                         r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                         r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                        6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                         E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                        8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                       (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                        r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                       6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                       4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                         (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                        E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                       (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                         (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                          E^(4.*r^2)))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                          E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                         ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                      (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                         (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                         ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                      (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./
+                          E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                        4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                         E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                        8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2)))/r^3) - (3*((-105*((2.*r^3)/
+                          E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                        r^6 + (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                          r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
+                          (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                          E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                          E^(4.*r^2)))/r^4 + (13*(0. + 12./E^(4.*r^2) + 
+                          (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                          E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                          (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                          ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                          E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                          8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
+                          E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                          6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                          r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                          (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                          18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                          r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                          6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                          4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                          (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                          E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                          8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                          (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                          (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                         24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*
+                          r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                          E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*
+                          (0. - 8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 
+                          96.*r)*(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^
+                          2)/E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r))*r + 48.*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                         48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
+                         6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                         3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                         12.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                         4.*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
+                         2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*
+                          r^3 + 0.5*r^4*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 16.*
+                          (12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                         3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) + (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                         24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                         24.*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                          96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                          (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          2.*r^3) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 
+                         8.*(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/
+                          E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 6.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + 4.*r^3*(0. + (384.*(0. - 8.*r))/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
+                          (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
+                          E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
+                          24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                         ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                          E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)) + 
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)) - 
+                         8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r^2 + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*(0. + 2.*r^3)) + 6.*r^2*(128./
+                          E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*
+                          ((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))) + ((0. - 8.*r)*((0. - 8.*r)*
+                          (12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3))))/E^(4.*r^2) - 
+                         8.*((12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
+                          (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                          E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 6.*r^2*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*(-4 + 
+                1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
+                  (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                  3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+                9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                   (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                   ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
+                    r^2) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                (-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                   (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
+                    r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                   (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                   (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
+                 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+            (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+             r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+          7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+               (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+            (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+            (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+               (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+              (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+              12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+              3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+              4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^
+                3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+              6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+              ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                 E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+         ((5.*^-7*(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+              Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                     r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                 (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                   (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+              (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
+             6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+              (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(2 - 6.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)/4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Cos[2*theta] + 3*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
+                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                 (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*
+                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                 (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+              (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2) - (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                 (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+              Sin[theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+               1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2) + 6.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) - 3*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+             (6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(2 - 
+                6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                  (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                3*r*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                  (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^4 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3) + (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                        r^4)/E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/2 + (3*r*((-105*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                   (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^4 + (13*(0. + 12./E^(4.*r^2) + 
+                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
+                       E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                      (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                        (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                      18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                     24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                      E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                     3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                        E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
+                         r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                       96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                          2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                      (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                        r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                       (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
+                        E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
+                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
+                        E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
+                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
+                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
+                      ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                         2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                        E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                     ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
+                         96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                     8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (-2 + 3*Sin[theta]^2)) + 0.000027*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
+                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^
+                2 + 0.000027*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                 (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                  (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
+                1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
+                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^
+                2)*(3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2) + 1.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2))/(2*r^2*
+            (-9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
+       (Sqrt[2]*r) + (-3.*^-6*r*(-3./(E^(4.*r^2)*r) + 
+         (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+         (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+            0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+            ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+         ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+           (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+           0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
+        Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2))/2)*
+           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^5 + (6*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*(-1 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2) - 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                (3*((3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^5 - (3*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^4 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r^3) - (3*((21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                         r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^5 - (21*((12.*r)/E^(4.*r^2) + 
+                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^4 + (9*(0. + 12./E^(4.*r^2) + 
+                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^3 - (2*((24.*(0. - 8.*r))/
+                        E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                        r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                         (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                       18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                        r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                       6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                       4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                         (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                        E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                       (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                         (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                      24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
+                      6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
+                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                         E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
+                          r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 8.*
+                       (12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                        (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
+                        (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
+                          (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                          r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
+                         E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
+                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
+                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
+                       ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                          2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                      ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
+                          96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                      8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                        8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-11*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)) + 1.*^-6*(((-6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                  (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+           (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+         7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                 (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                   (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 3*((3*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^5 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^3)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                  ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                        E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                    (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                    (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r^2)^2*Cos[theta]^2 + 3.*^-6*
+                  (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                  ((-6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^5 + (6*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^4 - (3*(0. + 12./E^(4.*r^2) + 
+                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+                  Cos[theta]^2 + 7.5*^-7*((3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  ((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  (-2 + 3*Sin[theta]^2) + (((21*((6.*r^2)/E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                    (21*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                    (9*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                        r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                       0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                       6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^3 - (2*((24.*(0. - 8.*r))/
+                        E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                       6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                        r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                         (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                       18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                        r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                       6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                       4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                         (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                         (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                        E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                       (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                         (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                      24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                      ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                      ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
+                       E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                      48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
+                      6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
+                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                         E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
+                          r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                         E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
+                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r^2 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 8.*
+                       (12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                        (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
+                        (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
+                          (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                          r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
+                         E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
+                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
+                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
+                       ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                          2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                      ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
+                          96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                      8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                        8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                      (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                          E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                        ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                     (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(2 + 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) - (3*((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)*((-3*((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                  (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+           (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+            r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
+            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
+                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+               (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+             Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + 
+                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              ((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*((3*((-105*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                 (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^3 - (3*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
+                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
+                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
+                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                      E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
+                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
+                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
+                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 
+              3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^5 - (6*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
+           2 + (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
+            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
+                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])))*(1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+           (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+            r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+               (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r) + 7.5*^-7*r*
+              (-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+               (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+             2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+               (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r) - Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                 r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+             r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 - (2*(0. + 12./E^(4.*r^2) + 
+                  (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                  12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                  4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+             (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+              r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+               0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
+                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r)^2 - 
+           7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+             (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
+                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*
+            (7.5*^-7*r^2*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + (297*
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+               (87*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
+                   E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                     E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                  3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+               (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                  E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                  E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
+                  E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 
+                 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
+                 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                    (0. - 8.*r))*r^2 + 3*(-16.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*
+                  r^2 + 12.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
+                 4.*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  (0. - 8.*r)*r^3 + 0.5*r^4*(-5120./E^(4.*r^2) + 
+                   128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                   (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                   (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                    E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                 3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                   (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
+                  ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                   (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
+                  (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                    E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                   96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 6.*r^2*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                   (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
+                    r^2 - 16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                 (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                   (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                   2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                   (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                   (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                     r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                   8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                 ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                      96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                  E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                    E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. + 2.*r^3)) + 
+                 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))) + ((0. - 8.*r)*((0. - 8.*r)*
+                     (12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3))))/E^(4.*r^2) - 
+                 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*
+                     (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+               (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+               (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
+           (2.25*^-12*r^2*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)^2 + 
+             9.000000000000001*^-12*r^2*(-7.5/(E^(4.*r^2)*r^2) + 
+               (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(-52.5/(E^(4.*r^2)*r^2) + 
+               (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
+                  (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                  12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                  3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                  4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
+                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
+              (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/
+                     E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                 (297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
+                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
+                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
+                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                      E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
+                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
+                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
+                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
+                (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                 (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                 (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                 (297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
+                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
+                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
+                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                      E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
+                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
+                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
+                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
+                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
+                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
+                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
+                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
+                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
+                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
+                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
+                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
+                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r)*Sin[theta]^2))/4)/
+          (2*r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
+            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
+            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
+                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
+                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
+                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
+                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+            (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+         (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+            0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+            ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+         ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+           (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+           0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
+        Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2))/2)*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2))*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*Cos[2*theta] + 
+              3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2) + 6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^4)))/((-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
+               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
+                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2*Sin[theta]^2 - 
+              (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2))/2) + 
+            (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3.*^-6*
+                 (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              6.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
+                    r^3) - (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                         r^4)/E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                    (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                    (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                        r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                       0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                       6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                      (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                        r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2)) - r*(((30*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 - 
+                (30*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 + 
+                (15*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (5*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*(1 - 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2) - 1.*^-6*((-6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                (3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                   (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
+                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4) + 1.*^-6*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(
+                3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                  (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^4 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3) - (3*((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                        r^4)/E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                   (48*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                       E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                      0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                      ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
+                       E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                      (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                        (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                      18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                     24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                      E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                     3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                        E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
+                         r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                       96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                          2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                      (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                        r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                       (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
+                        E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
+                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
+                        E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
+                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
+                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
+                      ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                         2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                        E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                     ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
+                         96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                     8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
+             (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2) + 1.*^-6*r*(((-6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2)/4))*((3*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+           (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+         7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+             Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/
+                   E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
+              (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
+            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
+           Sin[2*theta])/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
+               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
+                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*(
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2) - (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
+                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
+                3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2) + 6.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
+                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) - 
+              3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) + 3*((-15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^3)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*Sin[theta]^2*(3.*^-6*(15./(E^(4.*r^2)*r^2) - 
+                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2)*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2)*Cos[theta]^2 + 3.*^-6*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                 ((30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^6 - (30*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^5 + 
+                  (15*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (5*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
+                7.5*^-7*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 ((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-2 + 3*Sin[theta]^
+                    2) + (((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                   (48*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                       E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                       r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                      0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                      ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
+                       E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                      (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                        (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                      18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                     24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                     ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                     ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
+                      E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                      E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                     3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
+                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                        E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
+                         r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
+                        E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
+                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                       96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
+                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
+                          2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                      (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
+                        r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                       (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
+                        E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                       (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
+                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
+                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
+                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
+                        E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
+                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
+                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
+                      ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                         2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                        E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                     ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
+                         96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                     8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                         8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                     (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                         E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                    (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
+               (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2) + 1.*^-6*((-3*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) - 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)*(-6*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(2 + 
+                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + (3*((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+         7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2)^2/(r^4*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                 r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+             r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
+                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+           6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                 r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+             r^4 - (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+            (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+              (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                 E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+              0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                 16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+              8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+              ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^
+                (4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                  E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
+                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+           3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
+              (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
+            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
+            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2))*Sin[2*theta])/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
+              (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
+            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+             Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/
+                   E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2))*Sin[2*theta])/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             Sin[2*theta]^2)*(-3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
+               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
+                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-4*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2) + 0.000018*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(-4 + 
+                3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) - 6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            2*Cos[2*theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2) - 0.000018*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(-4 + 
+                3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
+               (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2) + 6.*^-6*(18*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2 + 3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2) - 6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2 + r*(15./(E^(4.*r^2)*r^2) - 
+                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2)))*Sin[2*theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2)))/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2) + r*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+               (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
+             (2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-7.5/(E^(4.*r^2)*
+                   r^2) + (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3*r*
+                (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                 (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^3) + (9*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/
+                      E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 
+               (3*r*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                  (297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^3 - (4*((24.*(0. - 8.*r))/
+                      E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                     (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                       (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                     18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
+                  (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                       E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                     E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
+                       8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
+                      (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
+                     E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                    3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
+                       E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
+                        r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    24.*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(12.*(0. - 8.*r)*r - 
+                      96.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. + 12.*(0. - 8.*r)*r - 96.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 192.*r^2*
+                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 6.*r^2*
+                     (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
+                       E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                     (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
+                      (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
+                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + 4.*r^3*(0. + (384.*(0. - 8.*r))/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                       E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                      (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                    24.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*
+                        (0. + 12.*(0. - 8.*r)*r - 96.*r^2) - 8.*
+                        (6.*(0. - 8.*r)*r^2 - 16.*r^3)))/E^(4.*r^2) - 
+                    8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                        2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                    ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
+                       8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
+                     E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                    8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                       (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
+                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
+              (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+               (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+               (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+               (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                     (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+              Sin[2*theta]^2)*(3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + 
+               (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2) + 1.*^-6*(3*(-7.5/(E^(4.*r^2)*r^2) + 
+                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+               (3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                      E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
+              (1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) - 
+               (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 + 
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+            (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+         (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+            0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+            ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+         ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+           (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+              E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+           0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+            r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+           ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
+        Sin[theta]*((1.5*^-12*r*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                 r^4)/E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
+               (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                 r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+               (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+               (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*
+                r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+              2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^
+                3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                 16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+              8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+              ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^
+                (4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                  (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
+                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2))/2))/(2 - 9.*^-12*
+            (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                   r^4)/E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+             (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
+                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+           3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*((2.*r^3)/E^(4.*r^2) + 
+               (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+            (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+            ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                (0. + 2.*r^3))/E^(4.*r^2))/r^3)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
+             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
+                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+           3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
+               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
+                r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2))*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
+              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
+               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
+                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
+                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
+            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
+              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
+                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*Cos[2*theta] + 
+              3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
+                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
+                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
+                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
+                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
+                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
+                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
+                2) + 6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3*
+                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                (2 - 0.000012*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
+                 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                   (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r^2) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2) + (15./(E^(4.*r^2)*r^2) - 
+                 (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r^2)*(-2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                   (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                   (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+                  Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                ((-9*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                    (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
+                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                        E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
+                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                      (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
+                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
+                        r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 
+                 r*(3*(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
+                        (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
+                     (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                         E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r^5 - (9*((12.*r)/E^(4.*r^2) + 
+                        (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                         E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                         E^(4.*r^2)))/r^4 + (0. + 12./E^(4.*r^2) + 
+                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
+                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2)))/r^3) - (3*(315./(E^(4.*r^2)*r^3) - 
+                      (630*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                          E^(4.*r^2)))/r^6 + (297*((6.*r^2)/E^(4.*r^2) + 
+                         (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                         ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
+                      (87*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                         (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                         ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                      (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                          E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                         3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                          r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                          r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                         6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                         ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                          E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                         8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^3 - (4*((24.*(0. - 8.*r))/
+                          E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                         6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                          r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                          (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                         18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                          r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                         6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                         4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                          (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                         ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                          E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                         8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                         (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
+                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                          (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
+                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
+                        24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
+                        ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
+                        ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
+                         E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 
+                          8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                          2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
+                        48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
+                        6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
+                        0.5*r^4*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 
+                          8.*r)*r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/
+                          E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*
+                          r)/E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
+                          (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
+                          96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*
+                          r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
+                          (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 
+                          2.*r^3) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 
+                        8.*(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
+                          (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*
+                         (0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
+                          (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
+                          E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
+                          (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 
+                          8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
+                        24.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*
+                          (0. + 12.*(0. - 8.*r)*r - 96.*r^2) - 8.*
+                          (6.*(0. - 8.*r)*r^2 - 16.*r^3)))/E^(4.*r^2) - 
+                        8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
+                          ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                          8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
+                          2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
+                        ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
+                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
+                          96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
+                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
+                        8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                          (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*
+                          (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                          E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
+                          (0. + 2.*r^3))/E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*
+              (-4 + 1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
+                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
+                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*
+                 (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
+                1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
+                  (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
+                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
+                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
+                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
+                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
+                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
+                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
+                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
+                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2))*
+             ((3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                 (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                 (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
+                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
+                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
+                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
+                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
+                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
+                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
+                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
+                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
+                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
+                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
+                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
+                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
+                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
+                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
+                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
+                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
+                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
+                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
+                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
+                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
+                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
+                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
+                15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
+                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
+                (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
+                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
+                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + ((10.5/(E^(4.*r^2)*r) - 
+                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
+                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
+                2*theta] + 6.*^-6*r*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Cos[2*theta] - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                  (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
+                6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                 Cos[2*theta]))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
+               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
+                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
+                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
+               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
+                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
+                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(1 + 
+                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
+                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
+                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
+                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
+                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
+                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                   r)*Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
+                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+               Sin[2*theta]^2 + 9.*^-6*r*(-3./(E^(4.*r^2)*r) + 
+                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
+                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) - 
+                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
+                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
+                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
+                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                 r^2)*Sin[2*theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
+                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2))/r^3)*(3*r*(-7.5/(E^(4.*r^2)*r^2) + 
+                  (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
+                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
+                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
+                 Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
+               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
+                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
+                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
+                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
+                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
+                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
+                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
+                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
+                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
+                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
+                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
+             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
+                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
+               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
+                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
+                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
+                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
+                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
+                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
+                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
+                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
+                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
+                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
+                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
+                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
+                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
+                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
+                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
+                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
+                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
+                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
+                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
+                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
+                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
+                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
+                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
+                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
+                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
+              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L1-N1.txt b/psi4_analytical/psi4-m0-a1e-06-L1-N1.txt
new file mode 100644
index 0000000..b9730fe
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L1-N1.txt
@@ -0,0 +1,7306 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+           (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                 3*Cos[2*theta]) + (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r)*Sin[theta]^2)/2)^2 + (-2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*((3*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                     (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                Sin[theta]^2)/4 + 3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                   r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r^4) - 
+           (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+           (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+             ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)) - 
+            (7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+              Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                 (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                     (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4 + 
+              3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (-3 + Csc[theta]^2))))/
+          (7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+              (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - 
+                 (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+              (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                1 + 3*Cos[2*theta])))*(1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+          (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+          (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(1 - 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+             1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                4))*(r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                 (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(2 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+             (1 + 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(2 - 3.*^-6*r*
+                (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 3.*^-6*r*
+                (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 6.*^-6*
+                (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 3.*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+          (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^4) + 
+                  (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
+                       E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-1 + 
+                   3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+               (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+                 (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                     r^3) - 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - 
+                       (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
+                        E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2))/
+                2) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 3.*^-6*
+                  (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                 ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                    (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                    (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+               3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[2*theta])*(-8 + 3.6*^-11*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                 3.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               1.8*^-11*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2)))/(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 - 
+          (3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
+                  2 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 - 0.000012*
+                   (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                    ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                  2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                     r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 1.5*^-6*
+                   (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                    (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                    (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+                ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+                 (-2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                     r^3) + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - 
+                       (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                      r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                     r^3) - 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - 
+                       (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
+                        E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+                  7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/
+                        E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/
+                        E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                    (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
+                 (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 ((-3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                     (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                     (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                     (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                       20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                         4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                      (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                       r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                      ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((-105*(E^(-r^2) - (2*r^2)/
+                          E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/
+                          E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                       (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                          (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                          4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r)*Sin[theta]^2)/4)))*(-4 + 
+                1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^
+                  2*(1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                     (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                  3.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                     r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+                9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                  2))/2 + 1.*^-6*(-0.000018*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 1.*^-6*
+                  (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                   (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                   (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*
+                  (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*
+                  (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                   (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*
+                  (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                   (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                     20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                       4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+              ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+                 (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta] - 
+                 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^4) - 
+                   (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
+                (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+            ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+          7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+            (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+            (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+            ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+               (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+              Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
+                3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
+              2 + 3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 
+               (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+                 (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(2 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+             6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                 (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)))/(r*(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(2 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - 
+             ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)))/(r*(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                      E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)^2 + (21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^4) + 
+                  (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
+                       E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-1 + 
+                   3*Cos[2*theta])))*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2) - (-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2) + 6.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+              (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2)))/(r*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
+             2) - (5.*^-7*r*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                   r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                 (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)))*(6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                 (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                 (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                 (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r)*Sin[theta]^2) + 2*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                3*r*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                  (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                  (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) + (3*((21*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/
+                       E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 2 + (3*r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                   (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                   (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                   (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                      20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                       (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                     (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              0.000027*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*Sin[2*theta]^2 + 0.000027*(
+                3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                (-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2) - (r*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                 (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                 (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                 (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                    2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*Sin[2*theta]^2)*
+             (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 
+                3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/
+                       E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                      E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2))/(2*r^2*(-9.*^-12*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 + 
+              (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+         (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+         (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+           (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)/4))*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
+             2 + 3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
+                 (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r^4) - 
+                   (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                  Sin[theta]^2) - 1.*^-6*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*(3*((3*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^3) - (3*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                       r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/
+                        E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                        (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                    2)/4))*(-4 + 1.8*^-11*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^4) - 
+                   (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+            1.*^-6*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/
+                      E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                      8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4))*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*
+                 (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+         7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*((-1.*^-12*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
+              2 + 3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^4) + 
+                 (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                   (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 
+               (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+                 (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                  ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                       r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                       (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                      8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r^2)^2*Cos[theta]^2 + 3.*^-6*(-6/(E^r^2*r^4) + 
+                   (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 
+                      8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[theta]^
+                   2 + 7.5*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                   (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                  ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                      8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+                  (-2 + 3*Sin[theta]^2) + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/
+                        E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                    (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                        (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                   (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                          E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+              (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+                 3.75*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2))/2 - 2.5*^-7*(6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta])) - (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)*((-3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(1 - 3*Cos[2*theta] + 6.*^-6*
+                 (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+           (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+              (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - 
+                 (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                   r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-105/(E^r^2*r^5) + 
+                 (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)*
+              ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 
+                 3*Sin[theta]^2))) + (-2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*((3*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                 (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                     (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                Sin[theta]^2)/4 + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+              (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                1 + 3*Cos[2*theta])))*(1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r^4) - 
+           (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+           (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+             7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) - 
+             2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/
+           (r^2*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+              Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+            (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+            (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - 
+                 (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+             ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+             (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+             (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                 (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2) + (1.125*^-12*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 - 
+           7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+             (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+             (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                 (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            (7.5*^-7*r^2*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+               (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+               ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                   8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+               (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+               (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-3 + Csc[theta]^
+                2)) + (2.25*^-12*r^2*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)^2 + 9.000000000000001*^-12*r^2*(-15/(E^r^2*r^5) + 
+               (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 - 3*Cos[2*theta])^2*
+              Csc[theta]^4 + 9.*^-12*r^2*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 
+             4*Csc[theta]^2*(7.5*^-7*r^2*(630/(E^r^2*r^6) - 
+                 (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                 ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
+                (90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                 (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3)*(-3 + Csc[theta]^2)) - 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                 (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                 (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                     (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                Sin[theta]^2))/4)/(2*r^2*
+           (7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta]))*Sin[2*theta])/
+          (r^2*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) - 
+            2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+              (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) - 
+              9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+         (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+         (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+        ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
+             2 + 3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (4 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
+              3.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^4)))/((-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)/4))*(-3*r*(-15/(E^r^2*r^5) + 
+              (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) - 
+              9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 
+              3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2*Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                  (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2) + 
+            (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                3.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                  (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - 
+                       (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                       r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                       (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                       8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                          E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                     r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2)) - r*(((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - 
+                (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
+                (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2)*(1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                      E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2) - 1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                   (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                     20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                       4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4) + 
+              1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/
+                       E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3) - (3*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                   (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                   (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                   (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                      20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                       (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4))*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*r*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/
+                      E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 
+                      8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4))*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - 
+                (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+         7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
+             2 + 3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - 
+            ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2 + (21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 
+              3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+             (-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) - 
+            (-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+            6.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                   r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) + 
+              3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                 (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                  (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                  (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 3.*^-6*
+                 (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*
+                 Cos[theta]^2 + 7.5*^-7*(-15/(E^r^2*r^5) + 
+                  (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*((21*(E^(-r^2) - (2*r^2)/
+                      E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                     r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r)*(-2 + 3*Sin[theta]^2) + (((-105*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/
+                       E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                   (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                       (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                  (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                         E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
+                 (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*((-3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - 
+                (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta])) + (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+         7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+           (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+           (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^
+                2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                 (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+            (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+            (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
+             2 + 3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+             (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+             (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                 (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^4) - 
+             (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+             3.75*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+            (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+            (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+            ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+           Cos[theta]^2*(-3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+             (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+             (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                 (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - 
+             (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - 
+            ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) - 
+              9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2 + (21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 
+              3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2) + 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + (-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                  (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) - 
+              6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                  3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^5) - 
+                  (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
+             (4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+                (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                  (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                  3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^5) - 
+                  (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+            6.*^-6*(18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2) - 6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2 + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                     (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                     r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-15/(E^r^2*r^5) + 
+               (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*
+                r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2) + (2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.*^-6*r*(-9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                   r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 3*
+                r*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                 (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) + (9*(-105/(E^r^2*r^5) + 
+                  (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                4 + (3*r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                     20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                       4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + 
+                      (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                  2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*(-15/(E^r^2*r^5) + 
+               (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                  (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                 r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^5) - 
+               (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
+                   2)) + 1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+               (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                  (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                    20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                      4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r)*Sin[theta]^2)/4)*(1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - 
+               (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r^4) - 
+                 (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+         (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+         (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+            (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+            (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+            ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+           Cos[theta]*Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+             (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+             (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                 (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+             (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+            (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+            (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3)*Cos[theta]*(1 + 3*Cos[2*theta])*
+           Sin[theta]*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + 
+              (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2)/4)))/(2 - 9.*^-12*
+            (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+             (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+             (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - 
+                 (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+             (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                    E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+              (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
+                  E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*(r*(2 - 6.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^
+                5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/
+                    E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                 (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*(1.8*^-11*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r^4) - 
+              (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (4 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                 r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
+              3.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                  20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r^4) + 
+              (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+              (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                 (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                 (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                   r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (2 - 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                    r^3) + 3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                     r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+                 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/
+                    r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2) + 1.5*^-6*(21/(E^r^2*r^4) - 
+                   (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                  Sin[theta]^2) + (30/(E^r^2*r^5) - (30*(E^(-r^2) - 
+                    (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(-2 + 6.*^-6*(3/(E^r^2*r^4) - 
+                   (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 1.5*^-6*
+                  (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                   (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                     20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                       4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-9*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
+                     r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                     r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                      20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+                 r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                     (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                     (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                     ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*(630/(E^r^2*r^6) - 
+                      (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + 
+                      (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                       r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/
+                          E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                      (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                         r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 
+                         20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 
+                        24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                          8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                      2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r^4) - 
+                  (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*
+                (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                 ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^4) - 
+                   (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                      r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                      (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))/
+             2 + 1.*^-6*(-0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 1.*^-6*
+                 (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*
+                 (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^4) + 
+                (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^5) + 
+                  (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^5) + 
+                  (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 
+                     8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                        E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
+                  2))*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/
+                     E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + 
+                    r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 
+                   20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 
+                     4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r)*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
+                       E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                  ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^4) - 
+                  (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                     (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                    8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
+                -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - 
+                (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^4) - 
+               (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                 r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 
+                8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+              ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+               (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + 
+                  r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                   (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 
+              6.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - 
+                (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) + 
+                  (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) + 6*(-6/(E^r^2*r^4) + 
+                  (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^4) - 
+                (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - 
+                   (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*(9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^
+                2 + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
+                  r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                  r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 
+              3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+                ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - 
+                (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(1 + 
+                7.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
+                   r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                 (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+              9.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - 
+                (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + 
+                   r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - 
+                (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) + 
+                  (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + 
+                     r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + 
+                    (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) - 
+                9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                  (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                  (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
+                 r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^4) - 
+               (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                  r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + 
+                  (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + 
+               ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^4) - 
+                 (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + 
+                    r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - 
+                (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2)))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L1-N2.txt b/psi4_analytical/psi4-m0-a1e-06-L1-N2.txt
new file mode 100644
index 0000000..3e579fb
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L1-N2.txt
@@ -0,0 +1,9849 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+            r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+              2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+             8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*
+                (-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+               4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+         3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+             3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                 3*Cos[2*theta]) + (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 - (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(
+                21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*((3*((21*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (21*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^4 + (9*(-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (2*((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (128/E^r^2 - (512*r^2)/E^r^2 - 
+                   32*(-2/E^r^2 + (4*r^2)/E^r^2) + 64*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + 14*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 8*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   8*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
+              3*((3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^5 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)^2))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r^3) - 
+           (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+            r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+             4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - 
+           (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+             ((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r))/4 + 3*((3*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -3 + Csc[theta]^2)) + 3.*^-6*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r))/4 + 3*((3*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -3 + Csc[theta]^2)) - (7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+              Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                 (105*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (48*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (13*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((160*r)/E^r^2 - (128*r^3)/
+                     E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                 (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r))/4 + 3*((-15*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^6 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))))/r^4 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-3 + 
+                Csc[theta]^2))))/(7.5*^-7*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^5 - (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+              (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+          (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+           r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+            2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+              2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*(((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+               2)) + (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(2 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+             3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                Cos[2*theta] + 3.*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+             6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 7.5*^-7*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^4)))/((-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+               2)) + (7.5*^-7*Sin[2*theta]*
+            (-8.*^-6*(9.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+               (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+                4 - 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Cos[2*theta] + 3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                  (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+              (-9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                    (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                      (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                  7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/
+                        E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                       r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                    (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                       E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r)*Sin[theta]^2))/2) + 
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                       E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                 ((21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                    (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+               3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               1.8*^-11*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
+            2 - (3.*^-6*Cos[theta]*Sin[theta]*
+            (((4.5*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2 + 
+                3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 - 0.000012*
+                   (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                    (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))/r^3) + 2.*^-6*(-6/(E^r^2*r^3) + 
+                    (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                       (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                    ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^2) + 1.5*^-6*(21/(E^r^2*r^3) - 
+                    (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                    (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+                ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                  (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(-2 + 6.*^-6*(3/(E^r^2*r^3) - 
+                    (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                      (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                  3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                        E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                       r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                    ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r^3) - 
+                    (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                    (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                   (-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                     r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + 
+                       (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r^3 - (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                      16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
+                    2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 ((-3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                     (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                     (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                        r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                       16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                   2 + r*(3*((-15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                      (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^5 - (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                      (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                        r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((-105*((2*r)/E^r^2 - (2*r^3)/
+                          E^r^2))/r^6 + (105*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                          r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                       (48*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 + (13*(-16/E^r^2 + (64*r^2)/
+                          E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((160*r)/E^r^2 - (128*r^3)/
+                          E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                          8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r^2 + (128/E^r^2 - (512*r^2)/
+                          E^r^2 - 32*(-2/E^r^2 + (4*r^2)/E^r^2) + 64*r^2*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) - 32*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 14*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/
+                          E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                       2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*
+                 (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^3) - 
+                    (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                    (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+                9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                    r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+               6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(1 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                     (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^2) + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (-2 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                     (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3) - 1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                   (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+              ((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                    (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                      (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
+            2) + r^2*(1 - 3.*^-6*(3/(E^r^2*r^3) - 
+            (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+            (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+          7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+            (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+             r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+              4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                 E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
+         ((5.*^-7*(-9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+              Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+               2)) - (5.*^-7*((3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 
+                3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[theta]^2 + (((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 - (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                    (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                      (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+               2)) + (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+               (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(2 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 1.*^-6*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (-2 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+               2)) - (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+               (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(2 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - 
+             ((21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+               2)) + (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+               (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+                4 - 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Cos[2*theta] + 3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                  (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+              (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+                 (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+                 (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2) - (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2) + 6.*^-6*(3*((3*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)*(2 - 3*Sin[theta]^2)))*
+             (6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) + 1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+                7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                3*r*((-15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                  (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^5 - (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) + (3*((21*((2*r)/E^r^2 - (2*r^3)/
+                       E^r^2))/r^5 - (21*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 - (2*(-16/E^r^2 + (64*r^2)/
+                       E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/2 + 
+                (3*r*((-105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                   (105*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^5 - (48*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                   (13*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((160*r)/E^r^2 - (128*r^3)/
+                       E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                   (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                  3*Sin[theta]^2)) + 0.000027*((3*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
+              0.000027*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2) - (r*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) + 1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+                7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
+                3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                 r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
+             (3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2))/(2*r^2*(-9.*^-12*(-6/(E^r^2*r^3) + 
+                 (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^
+                2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)*(2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+         (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+         ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+           r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+        Cos[theta]*Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3) - 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2))/2)*
+           (((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 + (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                    r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                       E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) - 1.*^-6*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^5 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((21*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                       r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                    (21*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 + (9*(-16/E^r^2 + (64*r^2)/
+                        E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                        (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*((160*r)/E^r^2 - (128*r^3)/
+                        E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                    (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                       ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                        8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                    2)/4))*(-4 + 1.8*^-11*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2)) + 1.*^-6*(((-6*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(1 - 
+                3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                -6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+             ((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+            r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+           (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+            r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+             4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 
+                3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[theta]^2 + (((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 - (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                    (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                      (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 3*((3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^4 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+                (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                       E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                   3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                  ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                       (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                    (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/
+                       E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r^2)^2*Cos[theta]^2 + 3.*^-6*(-6/(E^r^2*r^3) + 
+                   (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                   (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                  ((-6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^5 + (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                   (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                  ((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                  ((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^5 - (21*((-20*r)/E^r^2 + (16*r^3)/
+                        E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r^4 + (9*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*((160*r)/E^r^2 - (128*r^3)/
+                        E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                    (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                       ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                        8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                   (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                          E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                        r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                      3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+                 3.75*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/
+                       E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
+                 2))/2 - 2.5*^-7*(6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 
+                3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)*((-3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+            r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+              2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+             8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*
+                (-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+               4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+         3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^5 - (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+              ((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*((3*((-105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                 (105*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (48*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (13*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((160*r)/E^r^2 - (128*r^3)/
+                     E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                 (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
+              3*((-15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^5 - (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)^2 + (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+              (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r^3) - 
+           (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+            r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+             4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - 
+           (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+             7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r) - 2*Csc[theta]^2 + 
+             3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-3 + Csc[theta]^2))^2/
+           (r^2*(7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+              Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
+             2) + (7.5*^-13*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+            (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+             r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (21*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 - (2*(-16/E^r^2 + (64*r^2)/
+                   E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+               ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+              r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+              r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 4*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 - 
+           7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+              r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 4*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            (7.5*^-7*r^2*(630/(E^r^2*r^5) - (630*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^6 + (297*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+               (19*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^3 - (4*((160*r)/E^r^2 - (128*r^3)/
+                   E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (128/E^r^2 - (512*r^2)/E^r^2 - 
+                 32*(-2/E^r^2 + (4*r^2)/E^r^2) + 64*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 14*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 8*r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 8*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                   8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             3.*^-6*r^2*(90/(E^r^2*r^5) - (90*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^6 + (39*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^5 - (9*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)^2 + 9.000000000000001*^-12*r^2*
+              (-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-105/(E^r^2*r^4) + 
+               (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (48*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                   E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+               ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
+              (-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(630/(E^r^2*r^5) - (630*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^6 + (297*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (87*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^4 + (19*(-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (4*((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (128/E^r^2 - (512*r^2)/E^r^2 - 
+                   32*(-2/E^r^2 + (4*r^2)/E^r^2) + 64*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + 14*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 8*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   8*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
+                (90/(E^r^2*r^5) - (90*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                 (39*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (90/(E^r^2*r^5) - (90*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                 (39*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*(630/(E^r^2*r^5) - 
+                 (630*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                 (297*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (87*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (19*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*((160*r)/E^r^2 - (128*r^3)/
+                     E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                 (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2))/4)/
+          (2*r^2*(7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+             Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
+            2) + (7.5*^-7*(4*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-3*r*(-15/(E^r^2*r^4) + 
+              (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+            9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+              (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)))/(r^2*(7.5*^-7*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
+    (Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+         (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+         ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+           r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+        Cos[theta]*Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3) - 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+           ((3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (4 - 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
+              3.*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+            6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 7.5*^-7*(
+                21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^4)))/((-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*(((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+               r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+              (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+            9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+              (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)))/((2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2*Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                    r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                       E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2) + 
+            (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 
+                3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3) + ((21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                3.*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                  (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                 (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                    (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                      16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                  4))*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2)) - r*(((30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^6 - (30*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 + (15*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                (5*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) - 1.*^-6*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (3*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                    r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                       E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4) + 
+              1.*^-6*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4) + 
+              1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((-15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                  (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^5 - (6*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((-105*((2*r)/E^r^2 - (2*r^3)/
+                       E^r^2))/r^6 + (105*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                   (48*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 + (13*(-16/E^r^2 + (64*r^2)/
+                       E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^3 - (3*((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                   (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4))*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*r*
+             (((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                -6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+                (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                   (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+             ((3*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+            r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+           (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+            r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+             4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+              (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - 
+            ((21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            Cos[theta]^2*(-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) - (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+              3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                 r^3)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
+            2) - (2.5*^-7*(2*(9.*^-6*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) + 3*((-15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^6 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 - (6*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(
+                3.*^-6*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 + (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 3.*^-6*
+                 (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 ((30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 - 
+                  (30*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^5 + (15*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                  (5*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                 (-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 ((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                  (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((-105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                   (105*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^5 - (48*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                   (13*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((160*r)/E^r^2 - (128*r^3)/
+                       E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                   (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                  (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                         E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                       r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                     3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+                3.75*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)*(-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 + 
+                3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+            r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+           (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+           (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+            r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+             4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                   r^3)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+            (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+             r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+              r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 4*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+           6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+            (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+             r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+              4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                 E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+              r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 4*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+           3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] - 
+            ((21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                   E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+              (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+            9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+              (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)))/(r^3*(9.*^-12*(-6/(E^r^2*r^3) + 
+               (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2) + 0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                -4 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (1 + 3*Cos[2*theta])) - 6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                  (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                  (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2) - 0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                -4 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                  (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                  (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(18*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+              6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                 r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 
+                r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                  (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                   E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
+            2) - (-2*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-15/(E^r^2*r^4) + 
+               (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                   (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+             (2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.*^-6*r*
+              (-9*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 3*r*
+                (90/(E^r^2*r^5) - (90*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                 (39*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^5 - (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3) + (9*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + (3*r*
+                 (630/(E^r^2*r^5) - (630*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^6 + 
+                  (297*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^5 - (87*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  (19*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*((160*r)/E^r^2 - (128*r^3)/
+                      E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                  (128/E^r^2 - (512*r^2)/E^r^2 - 32*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + 64*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    32*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    14*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*
+                     ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                      8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                      2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                 (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^4) - 
+               (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                     E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*
+                (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                 (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-2 + 3*
+                Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2) + 1.*^-6*(3*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               (3*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                    16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                  r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-6/(E^r^2*r^3) + 
+               (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^2)*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                  (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+               (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+         (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+         ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+           r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+        Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+            (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+             r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+              4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                 E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]*
+           Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + (6*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+              (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+             (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+              r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 4*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+           3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+            (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+             r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3)*Cos[theta]*(1 + 3*Cos[2*theta])*
+           Sin[theta]*(((-6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+              (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^4 - (3*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (21*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+              r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 4*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+           3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+             (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                 r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/
+                  E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^3) + 
+              (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^2)*(-4 + 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*(1.8*^-11*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^4) + 
+                (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (4 - 3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                    E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + 
+              3.*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^4) + 
+                (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                  16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+            6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+              (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+               r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 7.5*^-7*(
+                21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^
+                4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + 
+                (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                 (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^4) + 
+                 (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                 (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 - 0.000012*
+                  (3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                    r^3) + 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                     (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^2) + 1.*^-6*r*(30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                   (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2) + 1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                      (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                      r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2) + (30/(E^r^2*r^4) - (30*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^5 + (15*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))))/r^3 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+                (-2 + 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/
+                       E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 1.5*^-6*
+                  (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                    r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                       E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                     16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                 (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-9*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                     r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + 
+                       (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                     r^3 - (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                      16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                  4 + r*(3*(90/(E^r^2*r^5) - (90*((2*r)/E^r^2 - (2*r^3)/
+                         E^r^2))/r^6 + (39*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                        r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                     (9*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 + (-16/E^r^2 + (64*r^2)/
+                        E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                        (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                      r^3) - (3*(630/(E^r^2*r^5) - (630*((2*r)/E^r^2 - 
+                         (2*r^3)/E^r^2))/r^6 + (297*(2/E^r^2 - (8*r^2)/
+                          E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                      (87*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^4 + (19*(-16/E^r^2 + (64*r^2)/
+                          E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*((160*r)/E^r^2 - (128*r^3)/
+                          E^r^2 - 16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                         8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         8*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^2*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r^2 + (128/E^r^2 - (512*r^2)/
+                         E^r^2 - 32*(-2/E^r^2 + (4*r^2)/E^r^2) + 64*r^2*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 32*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 14*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 8*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 8*r*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))) + r^2*(-8/E^r^2 + (16*r^2)/
+                          E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                      2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r^3) - 
+                  (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                    (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                    (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^3) - 
+                   (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                   (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               9.*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                 r^3)*(1 + 1.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^2) + 7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 
+                3.*^-6*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                    (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) - 1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/
+                     E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+                7.5*^-7*r*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/
+                      E^r^2))/r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                     r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^3 - (3*(-16/E^r^2 + (64*r^2)/
+                      E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 16*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - (8*r^2)/
+                       E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+             ((3*(-105/(E^r^2*r^4) + (105*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^5 - (48*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((160*r)/E^r^2 - (128*r^3)/E^r^2 - 
+                   16*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 6*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^3) - 
+                   (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                     (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 - 
+                (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                     (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                    r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+               (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+              (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                 (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+              (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+               (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + 
+                   r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + 
+                  (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + ((21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                    r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                       E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 6.*^-6*r*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+                6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^4 + (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/
+                      E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(3/(E^r^2*r^3) - 
+                 (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                   (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^3) - (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                 r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r^3) - 
+                  (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                  (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                  r^4 - (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/
+                    E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^3) + 
+                (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^4) - 
+                (30*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^5 + 
+                (15*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (5*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - 
+                   (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - (8*r^2)/E^r^2 + 
+                  r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                3*r*(-15/(E^r^2*r^4) + (15*((2*r)/E^r^2 - (2*r^3)/E^r^2))/
+                   r^5 - (6*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((-20*r)/E^r^2 + (16*r^3)/
+                     E^r^2 + 2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*
+                     ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^3) + 
+                  (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                  (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^
+                  2))))/(r*(2 - 9.*^-12*(3/(E^r^2*r^3) - 
+                (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^3) - 
+               (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + (9*(2/E^r^2 - 
+                  (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (-16/E^r^2 + (64*r^2)/E^r^2 + 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 8*r^2*(-2/E^r^2 + (4*r^2)/
+                    E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)) + r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+             3.*^-6*(3/(E^r^2*r^3) - (3*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+               (2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/E^r^2))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^3) - 
+                 (21*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 + 
+                 (9*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (-16/E^r^2 + (64*r^2)/E^r^2 + 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   8*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r^3) + (6*((2*r)/E^r^2 - (2*r^3)/E^r^2))/r^4 - 
+                (3*(2/E^r^2 - (8*r^2)/E^r^2 + r^2*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + ((-20*r)/E^r^2 + (16*r^3)/E^r^2 + 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
+            2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L1-N3.txt b/psi4_analytical/psi4-m0-a1e-06-L1-N3.txt
new file mode 100644
index 0000000..0135aef
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L1-N3.txt
@@ -0,0 +1,10363 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+            r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+             3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-1 + 3*Cos[2*theta]) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                    (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             ((3*((21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (2*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
+              3*((3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)^2))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r^2) - 
+           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r)*((3*((21*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                   (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r))/4 + 3*((3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
+                 2)) + 3.*^-6*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r))/4 + 3*((3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
+                 2)) - (7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r) - Csc[theta]^2 + 3.*^-6*(
+                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                 (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r))/4 + 3*((-15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^3) + 
+              (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+           r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+            3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+              2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+             1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+            (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(2 - 3.*^-6*r*
+                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+             3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^3) + 
+                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                Cos[2*theta] + 3.*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+             6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+               3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+            (-8.*^-6*(9.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+               (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^2) + 
+                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+              (-9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+               (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                    (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                      (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                  7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                        E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                       r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                    (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2) + 
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                 ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                     r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
+                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
+                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1.*^-6 - 
+                    3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[2*theta])*(-8 + 3.6*^-11*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               1.8*^-11*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2)))/(2 - 9.*^-12*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+            (((4.5*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*((21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                    (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2 + 
+                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (2 - 0.000012*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                        E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 2.*^-6*
+                   (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                     r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                     r^2) + 1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                       (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/
+                        E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                    (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                    ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(-2 + 6.*^-6*(3/(E^r^2*r^2) - 
+                    (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                      (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                  3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                        E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                       r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                      (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                    (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                    (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
+                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
+                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+                  7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
+                       (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/
+                        E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                    (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
+                    2) + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)*((-3*((21*((3*r^2)/E^r^2 - 
+                        (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/
+                         E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                     (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                        3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                     (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                     (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                       12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                   2 + r*(3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                      (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/
+                          E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
+                        12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((-105*((3*r^2)/E^r^2 - 
+                          (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/
+                          E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                       (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                          3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/
+                          E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                       (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - 
+                          (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r^2 + ((1248*r)/E^r^2 - 
+                         (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                         36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 12*r^3*
+                          (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                          2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                          ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/
+                          E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                       2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*
+                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                   (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                     r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/
+                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
+                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1 + 
+                    3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*(-6/(E^r^2*r^2) + 
+                   (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                  2*Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+               6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(1 + 1.*^-6*(-6/(E^r^2*r^2) + 
+                   (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^2) + 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (-2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*
+                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/
+                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/
+                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+              ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                    (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                      (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+             r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+            (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+            (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+            ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+              r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/
+                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              Cos[theta]^2*Sin[theta]^2 - (3*((3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.*^-6*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 
+               (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                    (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                      (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+               3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (1 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (-2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[2*theta] - ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+               (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^2) + 
+                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+              (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2) - (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+               3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+              (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+              (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+             (6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                 (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) - 3*r*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                     (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 2 + (3*r*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                   (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/
+                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/
+                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                      12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                      r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                      E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                       (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                  3*Sin[theta]^2)) + 0.000027*((3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2 + 0.000027*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2) - 
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                 (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) + 1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                 (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)*(3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2))/
+           (2*r^2*(-9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 + 
+              (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+         (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+          r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+           3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[theta]^2 + 
+              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 + (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) - 1.*^-6*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((21*((6*r)/E^r^2 - (12*r^3)/
+                        E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                    (21*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                    (9*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - 
+                       (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                       E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                        (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                      12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + 
+                        (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                    2)/4))*(-4 + 1.8*^-11*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2)) + 1.*^-6*
+             (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+             ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+            r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.*^-6*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 
+               (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                    (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                      (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^
+                 2*(1 + 3*Cos[2*theta]) + 3*((3*((6*r)/E^r^2 - (12*r^3)/
+                     E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
+                (3.*^-6*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                    (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/
+                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 
+                      12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)^2*
+                  Cos[theta]^2 + 3.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                   (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                  ((-6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 + (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^4 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
+                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                  ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                  ((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^5 - (21*(6/E^r^2 - (48*r^2)/
+                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (9*((-96*r)/E^r^2 + (144*r^3)/
+                        E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                        (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*(-96/E^r^2 + (624*r^2)/E^r^2 - 
+                       (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                       E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                        (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                      12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + 
+                        (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                   (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                          E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                        r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                      3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 - 3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2))/2 - 2.5*^-7*
+             (6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta])) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)*
+             ((-3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 - 3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+            r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+              ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             ((3*((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                 (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
+              3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2)^2 + (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^3) + 
+              (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r^2) - 
+           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+           (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                 (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+             7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/
+                   E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^3) + 
+               (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/
+           (r^2*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r) - Csc[theta]^2 + 3.*^-6*(
+                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+            (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+              3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+            3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(3/(E^r^2*r^2) - 
+             (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+             ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+              r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+             (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+             (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                   E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*
+                (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2) + (1.125*^-12*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 - 
+           7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+              r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*
+                (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            (7.5*^-7*r^2*(630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^4 + (19*((-96*r)/E^r^2 + 
+                  (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                  12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/
+                r^2 + ((1248*r)/E^r^2 - (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                 72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                   (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                   8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             3.*^-6*r^2*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^4 + ((-96*r)/E^r^2 + (144*r^3)/
+                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-105/(E^r^2*r^3) + 
+                (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)^2 + 9.000000000000001*^-12*r^2*
+              (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+               (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+               (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+               (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                 (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             1.8*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 - 3*Cos[2*theta])^2*
+              Csc[theta]^4 + 9.*^-12*r^2*(-15/(E^r^2*r^3) + 
+                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^6 + (297*((6*r)/E^r^2 - (12*r^3)/
+                     E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (87*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                    3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - 
+                    (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
+                (90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                 (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3)*(-3 + Csc[theta]^2)) - 
+             3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*
+              (8 + 3.*^-6*r^2*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                    E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2))/4)/
+          (2*r^2*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/
+                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+             Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
+            2) + (7.5*^-7*(4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-15/(E^r^2*r^3) + 
+              (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+              (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r) - 2*Csc[theta]^2 + 
+            3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
+              (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + 
+                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)))/(r^2*(7.5*^-7*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+         (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+          r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+           3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+        ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+           ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[theta]^2 + 
+              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+            3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+               r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Cos[2*theta] + 3.*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+            6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
+              (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + 
+                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)))/((2 - 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+           (-8.*^-6*(9.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
+              (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2) + 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[2*theta])*
+             (-8 + 3.6*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                    (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/
+                        E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/
+                        E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                        (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                  4))*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2)) - r*(((30*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^6 - (30*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
+                (15*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                   3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                (5*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) - 1.*^-6*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(3*(-15/(E^r^2*r^3) + 
+                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) - (3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                      3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                     (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(3*((3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - (3*((21*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^5 - (21*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                     (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((-15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^5 - (6*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((-105*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^6 + (105*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                   (48*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                      3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                   (13*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - 
+                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+                   ((1248*r)/E^r^2 - (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     72*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                       (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4))*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*r*
+             (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) - (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                   (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+             ((3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+            r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2)*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+               r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             Sin[2*theta]^2))/(r^2*(9.*^-12*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+               (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                  E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[theta]^2 + 
+              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+               r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             Sin[2*theta]^2))/(r^2*(9.*^-12*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[2*theta] - ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/
+                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
+           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+             (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) - (-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+              3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta]) + 3*((-15*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^6 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                 (30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                  (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*Cos[theta]^2 + 3.*^-6*
+                 (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 ((30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 - 
+                  (30*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^5 + (15*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^4 - (5*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                 (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 ((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((-105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                   (105*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (48*(6/E^r^2 - (48*r^2)/
+                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*((-96*r)/E^r^2 + (144*r^3)/
+                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^3 - (3*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                      12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                      r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                      E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
+                      ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                       (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                  (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                         E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                       r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                     3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 
+                3*Sin[theta]^2 + 3.75*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-105/(E^r^2*r^3) + 
+                 (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 - 3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)*
+             (-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta])) + (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+            r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+           (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+           (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                 E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+              (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/
+                E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+             6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+             r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*
+                r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+          Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+              (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+            (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+              3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[theta]^2 + 
+              (((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+              r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*
+                (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+             3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) + (2.25*^-12*
+           ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+            (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+            ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+              r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+           Cos[theta]^2*(-3.*^-6*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+              r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*
+                (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+           4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
+           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
+           (4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[2*theta] - ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - 
+                  (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + (144*r^3)/
+                  E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                 3*Cos[2*theta])))/4 + (-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+               r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             Sin[2*theta]^2)*(-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^3) - 
+              (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+              (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + 
+                (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)))/(r^3*(9.*^-12*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                    (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2) + 0.000018*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) + (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 
+                3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) - 
+              6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^2) + 
+                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                  (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(30/(E^r^2*r^3) - 
+                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 
+                3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r^2) + 
+                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                  (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                  (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(18*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+              6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 
+                r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+            (3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+             (2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^3) + 
+                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.*^-6*r*(-9*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) - 3*r*(90/(E^r^2*r^4) - 
+                 (90*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                 (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^4 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) + (9*(-105/(E^r^2*r^3) + 
+                  (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + (3*r*
+                 (630/(E^r^2*r^4) - (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^6 + (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                  (4*(-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + ((1248*r)/E^r^2 - (1728*r^3)/
+                     E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 36*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                    12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 6*r*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                      2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*
+                     ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^3*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                      8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                      2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-15/(E^r^2*r^3) + 
+               (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^3) - 
+               (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                   (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^3) + 
+                  (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+               (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+         (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+          r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+           3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+             2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+            (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)))/r^4 - (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+            ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+              r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+           Cos[theta]*Sin[theta]*(-9.*^-6*(-6/(E^r^2*r^2) + 
+              (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((3*r^2)/E^r^2 - (2*r^4)/
+                  E^r^2))/r^5 + (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+              r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*
+                (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
+           ((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+            (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+              3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + (6*((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                  (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((-96*r)/E^r^2 + 
+                (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (3*((3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              (3*((21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (21*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (2*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+              r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*
+                (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*
+                (-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+               ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+           4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^2) - 
+              (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2) + 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+               r^3)*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             Sin[2*theta]^2))/(r^2*(9.*^-12*(-6/(E^r^2*r^2) + 
+               (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - (3*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+            (1 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+               r^5 + (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+              (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                 E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^3) - 
+                (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+            3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/
+               r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Cos[2*theta] + 3.*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 + 7.5*^-7*r*(
+                -105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                  (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                  r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                    2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+            6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                   E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r^2) - 
+               (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                 (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+              (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+              (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^3) + 
+                 (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^3) + 
+                 (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                 (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (2 - 0.000012*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 3.*^-6*
+                  (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                   (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                    r^2) + 1.*^-6*r*(30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - 
+                      (2*r^4)/E^r^2))/r^5 + (15*((6*r)/E^r^2 - (12*r^3)/
+                       E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                   (5*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2) + 1.5*^-6*(21/(E^r^2*r^2) - 
+                   (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                   (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + (30/(E^r^2*r^3) - 
+                 (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                 (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)*(-2 + 6.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                 1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/
+                       E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                      r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/
+                       E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/
+                       E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                    r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                     12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-9*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/
+                        E^r^2))/r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                       r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                    (13*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                       3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + (-96/E^r^2 + (624*r^2)/E^r^2 - 
+                      (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                  4 + r*(3*(90/(E^r^2*r^4) - (90*((3*r^2)/E^r^2 - (2*r^4)/
+                         E^r^2))/r^6 + (39*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                        r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                     (9*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 
+                        3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                     ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*(630/(E^r^2*r^4) - 
+                      (630*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^6 + 
+                      (297*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^5 - (87*(6/E^r^2 - (48*r^2)/
+                          E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (19*((-96*r)/E^r^2 + (144*r^3)/
+                          E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*(-96/E^r^2 + (624*r^2)/E^r^2 - 
+                         (288*r^4)/E^r^2 + 12*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         36*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 24*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         12*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 9*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^3*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r^2 + ((1248*r)/E^r^2 - 
+                        (1728*r^3)/E^r^2 - 168*r*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        144*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 36*((8*r)/
+                          E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 72*r^2*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                        36*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 6*r*(8/E^r^2 - 
+                          (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))) + r^3*(-8/E^r^2 + 
+                          (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                          4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r)*Sin[theta]^2)/4)))*
+              (-4 + 1.8*^-11*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                    r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r^2) - 
+                 (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*
+                (3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                 ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
+                  (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+               9.*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                 2*Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(1 + 1.*^-6*(-6/(E^r^2*r^2) + 
+                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^2) + 7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                  (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                  ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                -2 + 3.*^-6*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - 
+                     (2*r^4)/E^r^2))/r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                 (-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                   r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                    12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+             ((3*(-105/(E^r^2*r^3) + (105*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^5 - (48*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3 - (3*((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 (-96/E^r^2 + (624*r^2)/E^r^2 - (288*r^4)/E^r^2 + 
+                   12*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*r^2*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 24*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 12*r^3*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 9*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r^2) - 
+                   (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                     (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r^2) - 
+                  (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                    (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^
+                4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                 (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+            4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                 (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]*
+           ((3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + ((21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                    r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                      (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 6.*^-6*r*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Cos[2*theta] - 3.*^-6*(
+                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + 
+                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                   r^3) + 6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/
+                      E^r^2))/r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                     r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - 
+                    (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                     E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                   r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r^2) - 
+                (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)*Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r^2) - 
+                (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(3/(E^r^2*r^2) - 
+                 (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - 
+                   (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r)/4 - 3.*^-6*(-6/(E^r^2*r^2) + 
+                 (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                 (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                    E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                   (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-15/(E^r^2*r^3) + (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^5 - (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r^2) - 
+                  (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                  (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                     (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+              9.*^-6*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2 + 9.*^-6*r*(-6/(E^r^2*r^2) + 
+                (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/
+                   E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^3) - (30*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 + 
+                (15*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                   (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2)*Sin[2*theta]^2 + 3.*^-6*(
+                3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + 
+                ((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^3) + 
+                  (15*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^5 - 
+                  (6*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 9*(-6/(E^r^2*r^2) + 
+                  (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 - 
+                  (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                 Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - (2*r^4)/
+                    E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                  r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r^2) - 
+               (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/r^4 + (9*((6*r)/E^r^2 - 
+                  (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+               (2*(6/E^r^2 - (48*r^2)/E^r^2 + (24*r^4)/E^r^2 + 3*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) + r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((-96*r)/E^r^2 + 
+                 (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 6*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r^2) - (3*((3*r^2)/E^r^2 - 
+                  (2*r^4)/E^r^2))/r^4 + ((6*r)/E^r^2 - (12*r^3)/E^r^2 + 
+                 r^3*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r^2) - (21*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                  r^4 + (9*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*(6/E^r^2 - (48*r^2)/E^r^2 + 
+                    (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2 + ((-96*r)/E^r^2 + (144*r^3)/E^r^2 + 12*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) - 12*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   6*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                   r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+             4.5*^-12*(-6/(E^r^2*r^2) + (6*((3*r^2)/E^r^2 - (2*r^4)/E^r^2))/
+                 r^4 - (3*((6*r)/E^r^2 - (12*r^3)/E^r^2 + r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + (6/E^r^2 - (48*r^2)/E^r^2 + 
+                  (24*r^4)/E^r^2 + 3*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L1-N4.txt b/psi4_analytical/psi4-m0-a1e-06-L1-N4.txt
new file mode 100644
index 0000000..0ec6c91
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L1-N4.txt
@@ -0,0 +1,10674 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+            r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-1 + 3*Cos[2*theta]) + (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*((3*((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (21*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (9*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (2*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
+              3*((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r) - 
+           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+             ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r))/4 + 3*((3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
+                 2)) + 3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r))/4 + 3*((3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^
+                 2)) - (7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+              3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                 (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r))/4 + 3*((-15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-3 + 
+                Csc[theta]^2))))/(7.5*^-7*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+          (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+            (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+            r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+         Cos[theta]*Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+               (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                 (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+            (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) - 
+             3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)*(4 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+               7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+             6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (Cos[2*theta] - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                 (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                 (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+               3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+            (-8.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+                4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r) + 
+                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                  3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) - 
+                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2))/2) + 
+             (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                 ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+               3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+            (((4.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2 + 
+                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3)*(2 - 0.000012*(3/(E^r^2*r) - 
+                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))/r^3) + 2.*^-6*(-6/(E^r^2*r) + 
+                    (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                    (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^2) + 1.5*^-6*(21/(E^r^2*r) - 
+                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 
+                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                  (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2)*(-2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                       (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                       E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                  3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                        E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) - 
+                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                   (-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                     r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                    (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
+                 (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)*((-3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                         E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                        r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                     (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                        4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                     (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                        24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                        E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                      (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
+                          E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                        (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                        r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3) - (3*((-105*((4*r^3)/E^r^2 - 
+                          (2*r^5)/E^r^2))/r^6 + (105*((12*r^2)/E^r^2 - 
+                          (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                        r^5 - (48*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/
+                          E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                          r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                          (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                          8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                       (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                          E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                          12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                         (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
+                          (-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                         72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
+                          E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                         12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 + 
+                          4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                          8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                       2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+                3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (4 - 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
+                    (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+                9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 + 
+             1.*^-6*(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 
+                 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                   (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                   (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                      E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
+                   2))*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                 Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
+                 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+               9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+             r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+            (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+            (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+               (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+            (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+              24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
+         ((5.*^-7*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
+                3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                 3*Sin[theta]^2)))*(2 - 9.*^-12*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                 3*Sin[theta]^2)))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+               3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
+               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+            (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 + 
+                3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+                4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
+                ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2) - 
+             (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2) + 
+             6.*^-6*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+               3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                 (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                 (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[theta]*
+              Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
+           (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
+              (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                  3*Sin[theta]^2)))*(6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                  (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3) - 3*r*((-15*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                  (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + 
+                (3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                   (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                      E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 2 + (3*r*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                   (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
+                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                     (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                       2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4)*(-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                  3*Sin[theta]^2)) + 0.000027*((3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2 + 0.000027*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^
+                2) - (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                 (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                  (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Sin[2*theta]^2)*(3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(
+                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2))/(2*r^2*(-9.*^-12*(-6/(E^r^2*r) + 
+                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
+       (Sqrt[2]*r) + 
+     (-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+         (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+              (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+           (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+           r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+        Cos[theta]*Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2)*(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 + (6*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^3 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3) - 7.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2) - 1.*^-6*(-6/(E^r^2*r) + 
+                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^3) - (3*((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                    (21*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                    (9*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*((-624*r)/E^r^2 + (1600*r^3)/
+                        E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                      (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                      12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 + 
+                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                        8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                    2)/4))*(-4 + 1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2)) + 
+            1.*^-6*(((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+             ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -1 + 3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+            r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                    (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                    ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3)^2*(1 + 3*Cos[2*theta]) + 3*
+                ((3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3)*(2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
+                (3.*^-6*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                    (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2)^2*Cos[theta]^2 + 3.*^-6*
+                  (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^2)*((-6*((12*r^2)/E^r^2 - (16*r^4)/
+                       E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
+                   (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                   (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                  ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^3)*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)))/r^5 - (21*((24*r)/E^r^2 - (88*r^3)/
+                        E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (9*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                       (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                        ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                       r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (2*((-624*r)/E^r^2 + (1600*r^3)/
+                        E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                       48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                         2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                      (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 128*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/
+                         E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                      12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 2*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + 16*r^3*((-16*r)/E^r^2 + 
+                        4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                        8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                   (-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                          E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                        r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                      3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+                 3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 - 
+            2.5*^-7*(6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) - 
+              (3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/2 + 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)*((-3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 - 3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+            r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                 3*Cos[2*theta]) + 1.5*^-6*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*
+              ((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*((3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^6 + (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (48*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (13*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (3*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4 + 
+              3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+               (1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+            Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+           (1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(21/(E^r^2*r) - 
+           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+         3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/
+            r^3)*(-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+             7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/
+                   E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                  E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r) - 2*Csc[theta]^2 + 
+             3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              Csc[theta]^2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2/
+           (r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+              Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
+             2) + (7.5*^-13*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+            (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+           (1 + 3*Cos[2*theta])*((3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              Sin[theta]^2)/4 + 3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(3/(E^r^2*r) - 
+             (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 - 
+           7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+            (7.5*^-7*r^2*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/
+                   E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+               (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*(24/E^r^2 - 
+                  (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))))/r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/
+                   E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                  16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                  12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + 
+               (-624/E^r^2 + (5472*r^2)/E^r^2 - (4096*r^4)/E^r^2 + 
+                 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 480*r^2*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                 128*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                 72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))) - 16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 12*r^2*(8/E^r^2 - 
+                   (16*r^2)/E^r^2 - 2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                 16*r^3*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                   2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                   8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 4*Csc[theta]^2 - 
+             6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             3.*^-6*r^2*(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^6 + (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
+              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)^2 + 9.000000000000001*^-12*r^2*(-15/(E^r^2*r^2) + 
+               (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                   4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                   4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
+              (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                 (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                 (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                 (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
+                (90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                 (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(3/(E^r^2*r) - 
+               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                 (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*(630/(E^r^2*r^3) - 
+                 (630*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                 (297*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (87*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 + (19*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                   (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                   16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                     2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                    ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                     8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2))/4)/
+          (2*r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - 
+             Csc[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
+            2) + (7.5*^-7*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
+                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta]))*Sin[2*theta])/
+          (r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+               r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-15/(E^r^2*r^2) + 
+              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) + 
+            7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                  E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
+                2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                  4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+               r) - 2*Csc[theta]^2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+              (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+               r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-3 + Csc[theta]^2))*
+           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+         (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+              (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+           (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+           r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+        Cos[theta]*Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2)*(-0.000018*(3/(E^r^2*r) - 
+               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(1 + 1.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
+              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
+           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2 + (1 + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r) - 
+              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (4 - 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                   24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r) + 
+              (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^4)))/((-2 + 9.*^-12*(3/(E^r^2*r) - 
+               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+              3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
+           (-8.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (-1 + 3*Cos[2*theta])))*(-9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2*Sin[theta]^2 - (3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
+                (-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.5*^-7*
+                  (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*Sin[theta]^2))/2) + 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3) + ((21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[2*theta])*(-8 + 3.6*^-11*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 6.*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] - 
+                3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + 
+                 (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                        E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                    (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
+                (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 
+                 3*Cos[2*theta] + 7.5*^-7*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2)) - 
+            r*(((30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 - 
+                (30*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^5 + (15*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^4 - (5*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^3 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2)*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.5*^-7*
+                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2) - 1.*^-6*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^2) + 
+                   (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                   (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                      E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                         4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(
+                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4) + 
+              1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((-15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                  (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^5 - (6*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^3) - (3*((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                   (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
+                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                     (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                       2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                   2)/4))*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*r*
+             (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*
+             ((3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+            r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+               r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
+           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
+           (4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
+                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (-1 + 3*Cos[2*theta])))*(-3.*^-6*((3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) - (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[theta]^2*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+              3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta]) + 3*((-15*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^6 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                (6*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(2 + 
+                3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*Sin[theta]^2*(3.*^-6*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                  (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+                 ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                  (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2)*Cos[theta]^2 + 3.*^-6*(-6/(E^r^2*r) + 
+                  (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)*((30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^6 - (30*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + 
+                  (15*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - 
+                  (5*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                 (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*((21*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((-105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                   (105*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^5 - (48*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^4 + (13*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                      (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                       ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (3*((-624*r)/E^r^2 + (1600*r^3)/
+                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                     (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                     16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                       2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                      ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                       8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
+                  (-1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                         E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                     3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
+                3.75*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) - 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)*(-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
+              (3*((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/2 - 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+            r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+           (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+           (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+           (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+             24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                  E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*
+                (-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2)*(1 + 3.*^-6*
+                 (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+            (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+           (1 + 3*Cos[2*theta])*((3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                (-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[theta]^2 + (((21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (21*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (2*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+           6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
+              (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) + (2.25*^-12*
+           ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+            (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+               (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+            (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+              24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (1 + 3*Cos[2*theta]) + ((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+           3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
+           (4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
+                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
+              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
+           (4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
+                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[2*theta] - ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                   E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(
+                -15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+              (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + (21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (-1 + 3*Cos[2*theta])))*(-4*r*(30/(E^r^2*r^2) - 
+                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                 r^2) + 0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4 + 
+                3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) - 
+              6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-2 + 1.*^-6*(-6/(E^r^2*r) + 
+                  (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*
+                 (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                  (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            2*Cos[2*theta]*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+              0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                -4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                  3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-6*
+                 (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*
+                 (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                  (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
+                1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(18*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                -6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 
+              6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 
+                r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+                  (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+                  (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)))*
+             Sin[2*theta]^2*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+               (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                 3*Sin[theta]^2)))*(3.*^-6*r*(-15/(E^r^2*r^2) + 
+               (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 
+             (2 - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3) - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+               1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.*^-6*r*(-9*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) - 3*r*(90/(E^r^2*r^3) - 
+                 (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^6 + 
+                 (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^5 - (9*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^4 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^3) + (9*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + (3*r*
+                 (630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^6 + (297*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                  (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                  (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - 
+                  (4*((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/E^r^2 - 
+                    (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 256*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 144*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 128*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 72*r^2*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                    16*r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                      2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                     ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/E^r^2 + 
+                      8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - 
+                        (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 
+                      2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                        6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-15/(E^r^2*r^2) + 
+               (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*(3/(E^r^2*r) - 
+               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+              (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+               (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                   (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r) + 
+               (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+               ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2) + 1.*^-6*(3*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+               (3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                  (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                     4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                  (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                     24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                  ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                    48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
+             4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+              (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+               (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 
+                 3*Sin[theta]^2)))^2)) - 3.*^-6*r*(-6/(E^r^2*r) + 
+         (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+         (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+              (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+           (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+           r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+        Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+            (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+               (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*
+                ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+            (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+              24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]*
+           Sin[theta]*(-9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*((-6*((4*r^3)/E^r^2 - (2*r^5)/
+                  E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*((24*r)/E^r^2 - 
+                 (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                  (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - 
+            (3*((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2))/2))/(2 - 9.*^-12*(3/(E^r^2*r) - 
+              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(21/(E^r^2*r) - 
+             (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+           3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
+           ((3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+            (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                 (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+              (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+              r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+           Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + (6*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - 
+              (3*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+             (1 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3) + 7.5*^-7*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(3*((3*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) - (3*((21*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^5 - (21*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (2*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+             (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                    E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+           3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+             ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                  E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+             7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+            Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
+           (-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
+              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (1 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*(-2 + 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2))*(r*(2 - 6.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+              3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                  (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3) + 1.5*^-6*(21/(E^r^2*r) - 
+                (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2)*(-1 + 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+               r^5 + (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) - 
+            0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+               ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                    E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+              (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+             (-4 + 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (-2 + 1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                1 + 3*Cos[2*theta]) + 1.*^-6*r*(30/(E^r^2*r^2) - 
+                (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               (1 + 3*Cos[2*theta])))*(1.8*^-11*(3/(E^r^2*r) - 
+               (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+            (1 + 7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) - 3.*^-6*(3/(E^r^2*r) - 
+              (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
+             (4 - 3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + 
+              6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+               Cos[2*theta] + 3.*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                   (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                    E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                   24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                     4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                  48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                    4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 
+                    4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                 r)*Sin[theta]^2) + 6.*^-6*(-6/(E^r^2*r) + 
+              (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+              ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                  2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 - 
+            6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)*(-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(21/(E^r^2*r) - 
+              (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - 
+                 (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+              (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - 
+                (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + 
+                  (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+             Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                 (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+              7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^2) + 
+                 (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                  r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                    E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                    (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2 + 3*(-15/(E^r^2*r^2) + 
+                 (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                 (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
+                (2 - 0.000012*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                       E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 3.*^-6*
+                  (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                   (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))/r^2) + 1.*^-6*r*(30/(E^r^2*r^2) - 
+                   (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                   (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r^2) + 1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/
+                       E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - 
+                   (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+                   (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                      (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                       4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) + 
+               (30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                 (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                  r^2)*(-2 + 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                      (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/
+                      E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 
+                 1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                  (-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                      r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                   (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                      4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                   (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                      24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                        4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                   ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                     48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                        (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                     r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                       2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2) + 1.*^-6*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                 (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
+                ((-9*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/
+                        E^r^2))/r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                       r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                    (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                       4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                         2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                    (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^2 + ((-624*r)/E^r^2 + (1600*r^3)/
+                       E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                      48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                      12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))) + r^4*((-16*r)/E^r^2 + 4*r*
+                         (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - 
+                          (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2)/4 + 
+                 r*(3*(90/(E^r^2*r^3) - (90*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                      r^6 + (39*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                        r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - 
+                     (9*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                        4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + 
+                     (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                       24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*
+                          (-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                         (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                      r^3) - (3*(630/(E^r^2*r^3) - (630*((4*r^3)/E^r^2 - 
+                         (2*r^5)/E^r^2))/r^6 + (297*((12*r^2)/E^r^2 - 
+                         (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/
+                       r^5 - (87*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/
+                          E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                         r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                       r^4 + (19*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/
+                          E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                         16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                         r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r^3 - (4*((-624*r)/E^r^2 + (1600*r^3)/
+                          E^r^2 - (512*r^5)/E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 64*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                         48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r^4*((-16*r)/
+                          E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))))/r^2 + (-624/E^r^2 + (5472*r^2)/
+                         E^r^2 - (4096*r^4)/E^r^2 + 48*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 480*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                        256*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 144*r*
+                         ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                        128*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)) + 72*r^2*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 16*r^4*
+                         (4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) + 12*r^2*(8/E^r^2 - (16*r^2)/E^r^2 - 
+                          2*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 16*r^3*
+                         ((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                          6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)))) + r^4*(-8/E^r^2 + (16*r^2)/
+                          E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*
+                          ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                          8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                          4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                          2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
+                      2)/4)))*(-4 + 1.8*^-11*(3/(E^r^2*r) - 
+                  (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                    (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(21/(E^r^2*r) - 
+                 (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                 (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                Sin[theta]^2 + 1.5*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 
+                 12*Cos[2*theta] - 3.*^-6*(21/(E^r^2*r) - 
+                   (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                       E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)^2*Sin[2*theta]^2))/2 + 
+            1.*^-6*(-0.000018*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/
+                     E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                   r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r) - 
+                (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                  (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                1.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^2) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2) + (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 
+                3.*^-6*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/
+                      E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                     r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) - 1.5*^-6*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2 - 7.5*^-7*r*(-105/(E^r^2*r^2) + 
+                  (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                  (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^4 + (13*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^3 - (3*(24/E^r^2 - (288*r^2)/E^r^2 + 
+                     (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                       2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                       (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                       2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
+                   r^2 + ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/
+                     E^r^2 + 48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*
+                     (-2/E^r^2 + (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                    r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                      2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*Sin[theta]^2))*
+             ((3*(-105/(E^r^2*r^2) + (105*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^5 - (48*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                 (13*((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                    4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - 
+                 (3*(24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 
+                    24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                      4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                        2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 
+                 ((-624*r)/E^r^2 + (1600*r^3)/E^r^2 - (512*r^5)/E^r^2 + 
+                   48*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 64*r^3*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2) + 48*r^2*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)) - 16*r^4*((8*r)/E^r^2 - 2*r*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)) + 12*r^3*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + 
+                   r^4*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 
+                     2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2)))))/r)*(2 + 3.*^-6*(3/(E^r^2*r) - 
+                   (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                   ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/
+                    E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + 
+                ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                  4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                     (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                    r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 
+                  3*Cos[2*theta]) + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^
+                4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                   (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 
+              (24/E^r^2 - (288*r^2)/E^r^2 + (256*r^4)/E^r^2 + 24*r^2*
+                 (-2/E^r^2 + (4*r^2)/E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2) + 8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                     E^r^2)) + r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 
+                  4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 + 
+            3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+              ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/
+                   E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
+                21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+               (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                 (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                 r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+             Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]*
+           ((3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + ((21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                    r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                       (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                      (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                          (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                      E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                     8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                     r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                          E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 6.*^-6*r*(-6/(E^r^2*r) + 
+                (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Cos[2*theta] - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3) + 6*(-6/(E^r^2*r) + 
+                  (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+               Sin[theta]^2 - 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - 
+                     (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                         (4*r^2)/E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/
+                     E^r^2 + (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) - 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                    8*r^3*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + 
+                    r^4*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
+                         E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(3/(E^r^2*r) - 
+                 (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - 
+                   (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 
+              (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
+               4 - 3.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                   (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                   r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
+                2*Cos[2*theta] + 3*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 2.5*^-7*
+                 (21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 (-1 + 3*Cos[2*theta])))*(-3*r*(-15/(E^r^2*r^2) + 
+                (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 - 
+                (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
+                1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(21/(E^r^2*r) - 
+                  (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 + 
+                  (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                      E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                        E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                          E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                    (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                      2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                      (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                      2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                 Sin[theta]^2) + 9.*^-6*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - 
+                    (2*r^5)/E^r^2))/r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/
+                     E^r^2 + r^4*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + 
+                 ((24*r)/E^r^2 - (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 
+                   4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 + 
+              9.*^-6*r*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 - (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
+                30/(E^r^2*r^2) - (30*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^5 + 
+                (15*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^4 - (5*((24*r)/E^r^2 - (88*r^3)/
+                    E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                      E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                        E^r^2))))/r^3 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                  (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                  16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                    2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                    (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                    2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
+               Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                   (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                  r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
+                3*r*(-15/(E^r^2*r^2) + (15*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                   r^5 - (6*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*
+                      (-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + ((24*r)/E^r^2 - 
+                    (88*r^3)/E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + 
+                        (4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) - 
+                9*(-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                  (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                       (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2)))/r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                 r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                    (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                   E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                     E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                       E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                 (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                 16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                   2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                   (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+              Sin[theta]^2 + 3.*^-6*(3/(E^r^2*r) - (3*((4*r^3)/E^r^2 - 
+                  (2*r^5)/E^r^2))/r^4 + ((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + 
+                 r^4*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
+               7.5*^-7*(21/(E^r^2*r) - (21*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/
+                  r^4 + (9*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                      (4*r^2)/E^r^2)))/r^3 - (2*((24*r)/E^r^2 - (88*r^3)/
+                     E^r^2 + (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/
+                       E^r^2) + r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
+                         E^r^2))))/r^2 + (24/E^r^2 - (288*r^2)/E^r^2 + 
+                   (256*r^4)/E^r^2 + 24*r^2*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                   16*r^4*(-2/E^r^2 + (4*r^2)/E^r^2) + 8*r^3*((8*r)/E^r^2 - 
+                     2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r^4*(4/E^r^2 - 
+                     (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 
+                     2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-6/(E^r^2*r) + (6*((4*r^3)/E^r^2 - (2*r^5)/E^r^2))/r^4 - 
+                (3*((12*r^2)/E^r^2 - (16*r^4)/E^r^2 + r^4*(-2/E^r^2 + 
+                     (4*r^2)/E^r^2)))/r^3 + ((24*r)/E^r^2 - (88*r^3)/E^r^2 + 
+                  (32*r^5)/E^r^2 + 4*r^3*(-2/E^r^2 + (4*r^2)/E^r^2) + 
+                  r^4*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
+              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L2-N1.txt b/psi4_analytical/psi4-m0-a1e-06-L2-N1.txt
new file mode 100644
index 0000000..65e21cb
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L2-N1.txt
@@ -0,0 +1,11539 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+            r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)/4 + 3*((3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (1 - 3*Sin[theta]^2))^2)/(-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+               (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             ((3*((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+            r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+              (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r)*((3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r))/4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (-3 + Csc[theta]^2)*((3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r))/4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) - 
+            (7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r) - Csc[theta]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-3 + Csc[theta]^2))*
+             ((3*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                 (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r))/4 + 
+              3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+              (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+              (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+               (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                 (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+              (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+              (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+               r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                3*Cos[2*theta])))*(1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
+          (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+          (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+            16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+            16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*
+              (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) - 
+               (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*
+                r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+            Sin[theta]*(1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+             (1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(2 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(4 - 3.*^-6*r*
+                (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                Cos[2*theta] + 3.*^-6*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+             6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+              (Cos[2*theta] - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2 + (336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 3.*^-6*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(-1 + 2.5*^-7*
+                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3) - 7.5*^-7*(336/(E^(r^2/4)*
+                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2) + 
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                 3.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+          (3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*((21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 
+                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2 - 0.000012*
+                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
+                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 1.5*^-6*
+                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2) + ((-6*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(-2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                  3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
+                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2))/r)*Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 ((-3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
+                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) - 
+                    (3*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                       (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
+                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                        r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
+                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
+                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
+                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                     4)))*(-4 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+                3.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 1.5*^-6*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                  3.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 + 
+             1.*^-6*(-0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-96/(E^(r^2/4)*
+                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + (-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2))*((3*((21*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) - 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+              16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+          7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+            (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+            ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+              Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
+                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+             1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*
+                r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+             1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+            Sin[theta]^2*(-0.000018*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)^2 + 6*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2) + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+              (-2 + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+            Sin[theta]^2*(6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[2*theta] - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))/4 + (-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 3.*^-6*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(-1 + 2.5*^-7*
+                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
+                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+             (-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+             6.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+           (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))*(6*((3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-240/(E^(r^2/4)*
+                    r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2) + 2*(-6*((3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                3*r*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) + 
+                (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/2 + (3*r*((-105*(16/E^(r^2/4) - 
+                      (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+               (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (-2 + 3*Sin[theta]^2)) + 0.000027*((3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+              0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2) - 
+            (r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+                1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+             (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 
+                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 1.*^-6*(3*((3*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2))/
+           (2*r^2*(-9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+          r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+           16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              2))/r^2)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2)*(((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*
+           ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) - 1.*^-6*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) - 
+                 (3*((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
+                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
+                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
+                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
+                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4))*(-4 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 1.5*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                 3.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+            1.*^-6*(((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4))*
+             ((3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+           (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+            r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3)^2*(1 + 
+                 3*Cos[2*theta]) + 3*((3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
+                (3.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[theta]^2 + 
+                 3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*((-6*((-16*r)/E^(r^2/4) + 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                   (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
+                 7.5*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                  ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
+                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
+                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
+                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
+                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                     (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(1 - 3*Sin[theta]^2 + 
+                 3.75*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 - 
+            2.5*^-7*(6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/2 + 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)*((-3*((21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+            r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+              (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+              (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+               (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                 (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*((3*((21*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 3*
+                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))) + 
+            (-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             ((3*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                 (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+              (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+              (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+               r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                3*Cos[2*theta])))*(1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+            r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+             1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+              (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                  16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                    (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                 16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r) - 2*Csc[theta]^2 + 
+             3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              Csc[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
+                Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
+              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+               (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                 (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)^2 - 
+           7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                 E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*
+            (7.5*^-7*r^2*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+               (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                  16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+               ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                     (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r) + 
+             4*Csc[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^5 - (9*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2)) + 
+           (2.25*^-12*r^2*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)^2 + 
+             9.000000000000001*^-12*r^2*(-240/(E^(r^2/4)*r^5) + 
+               (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(-1680/(E^(r^2/4)*r^5) + 
+               (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+               (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                 (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
+              (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)^2*(1 - 3*Cos[2*theta])^2*
+              Csc[theta]^4 + 4*Csc[theta]^2*(7.5*^-7*r^2*
+                (10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r) + 2*
+                Csc[theta]^2 + 3.*^-6*r^2*(1440/(E^(r^2/4)*r^6) - 
+                 (90*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                 (39*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2)) - 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2))/4)/(2*r^2*
+           (7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*
+                  r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta]))*Sin[2*theta])/
+          (r^2*(7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+              (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+              (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-3*r*(-240/(E^(r^2/4)*r^5) + 
+              (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                5 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+          r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+           16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              2))/r^2)*Cos[theta]*Sin[theta]*
+        ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2)*(-0.000018*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2 + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2 + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+               r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            (1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (4 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+            6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+              (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)^2 + (336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+               Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+                (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2))/2) + 
+            (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3) + ((336/(E^(r^2/4)*r^4) - 
+                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1.*^-6 - 3.*^-6*
+                    Cos[2*theta]))/4) + 3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              6.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                3.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                 (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+            r*(((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
+                (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r^2)*(1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) - 
+              1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(
+                3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4) + 1.*^-6*(-96/(E^(r^2/4)*
+                  r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(3*((-15*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^3) - (3*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                   (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
+                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
+                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*r*(((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4))*((3*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+                (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+           (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+            r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)*
+             (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[2*theta] - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*(
+                48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-240/(E^(r^2/4)*
+                  r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(480/(E^(r^2/4)*r^5) - 
+              (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*
+                  r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+            (-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[theta]^2*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) + 
+              3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
+                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*Sin[theta]^2*(3.*^-6*(480/(E^(r^2/4)*r^5) - 
+                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*
+                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+                3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 ((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
+                  (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                  (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r^2)*Cos[theta]^2 + 7.5*^-7*(-240/(E^(r^2/4)*
+                    r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-2 + 
+                  3*Sin[theta]^2) + (((-105*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                    (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
+               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(1 - 3*Sin[theta]^2 + 
+                3.75*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+                (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)*
+             (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/2 - 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+           (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+            r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+           (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+           (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                2) + 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*
+                r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
+                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
+              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+            3*Sin[theta]^2*(3.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                 E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+            (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + (8*r^2)/
+                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+              16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+            (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                 E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(480/(E^(r^2/4)*r^5) - 
+              (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*
+                  r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(480/(E^(r^2/4)*r^5) - 
+              (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*
+                  r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[2*theta] - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*(
+                48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-240/(E^(r^2/4)*
+                  r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
+           Sin[2*theta])/(r^2*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+              (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2) + 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + (-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta])) - 6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            2*Cos[2*theta]*(4*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - (-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
+               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(18*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)^2 + 3*r*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) - 6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2 + r*(480/(E^(r^2/4)*r^5) - 
+                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+               (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + (2 - 6.*^-6*
+                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.*^-6*r*(-9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 3*
+                r*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3) + (9*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                     (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 
+               (3*r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                  ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-240/(E^(r^2/4)*r^5) + 
+               (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
+               (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+               (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*
+                r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+             1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+               (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+               (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))^2)) - 3.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
+         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+           16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              2))/r^2)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+            (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + (8*r^2)/
+                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+              16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2))/(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+           1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                 E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                 E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+             r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
+              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                 E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2 + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
+                4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+            1.3499999999999999*^-11*r*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
+                 (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - (-96/(E^(r^2/4)*r^4) + 
+              (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(48/(E^(r^2/4)*r^4) - 
+              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-2 + 1.*^-6*(-96/(E^(r^2/4)*
+                  r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            (1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (4 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+            6.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (Cos[2*theta] - 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4))*
+           Sin[2*theta])/(r*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 3*
+                (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (2 - 0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 1.*^-6*r*
+                  (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r^2) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
+                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
+                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + (480/(E^(r^2/4)*r^5) - 
+                 (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                 (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 6.*^-6*
+                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*
+                ((-9*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
+                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
+                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
+                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
+                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4 + r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - 
+                        (8*r^2)/E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
+                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
+                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      r^3) - (3*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
+                         (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
+                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                      (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
+                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                       r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
+                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                    4)))*(-4 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
+                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*
+                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 1.5*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                 3.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 + 
+            1.*^-6*(-0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-96/(E^(r^2/4)*
+                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + (-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 - 7.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
+                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2))*((3*(-1680/(E^(r^2/4)*r^5) + 
+                 (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                 (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
+                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                Sin[theta]^2)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 9.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+                (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                  E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+               (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-240/(E^(r^2/4)*r^5) + 
+                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
+                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + ((336/(E^(r^2/4)*r^4) - 
+                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1.*^-6 - 3.*^-6*
+                    Cos[2*theta]))/4) + 6.*^-6*(-96/(E^(r^2/4)*r^4) + 
+                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              6.*^-6*r*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
+                 r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta] - 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+                6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 Cos[2*theta]))*(-2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+              1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
+                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta] + 
+                7.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
+                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
+                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/r^3)^2 + (336/(E^(r^2/4)*r^4) - 
+                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(48/(E^(r^2/4)*r^4) - 
+                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
+                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])*(1 + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              9.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
+                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2 + 9.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
+                (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
+                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
+                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+              3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
+                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 9*(-96/(E^(r^2/4)*r^4) + 
+                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
+                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(336/(E^(r^2/4)*r^4) - 
+               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
+                   E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(336/(E^(r^2/4)*r^4) - 
+                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
+                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
+                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-96/(E^(r^2/4)*r^4) + 
+                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
+                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
+                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2)))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L2-N2.txt b/psi4_analytical/psi4-m0-a1e-06-L2-N2.txt
new file mode 100644
index 0000000..abd6945
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L2-N2.txt
@@ -0,0 +1,13583 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+              (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+             8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                  (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)/4 + 3*((3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                  r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+               (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             ((3*((21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (21*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (9*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                 (2*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                   64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+              (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+             8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r)*((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                  r^5 - (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
+              3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
+              3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) - 
+            (7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
+                Csc[theta]^2))*((3*((-105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^6 + (105*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (48*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (13*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (3*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                    32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                   64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r))/4 + 
+              3*((-15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+              (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                 (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+              (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-48/(E^(r^2/4)*r^3) + 
+          (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+          (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+            (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+            8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*
+            (((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+               (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+               7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*
+              (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) - 
+               (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+               (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2 + (1 + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (2 - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(4 - 3.*^-6*r*
+                (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               6.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                Cos[2*theta] + 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + 6.*^-6*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+               (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 3.*^-6*
+                (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Cos[2*theta] + 3*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 2.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+              (-9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+                Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                   r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+                 (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                       (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3) - 7.5*^-7*(168/(E^(r^2/4)*
+                      r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                     r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2) + 
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 ((168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                        E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                        E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                       (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*
+                (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta])*
+              (-8 + 3.6*^-11*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 1.8*^-11*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+          (3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 ((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 
+                3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(2 - 0.000012*
+                   (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                        E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3) + 2.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                    (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                    (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                    ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 1.5*^-6*
+                   (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                        E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                        E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                       (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2) + ((-6*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 - (3*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(-2 + 6.*^-6*(24/(E^(r^2/4)*r^3) - 
+                    (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                    (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                  3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                       (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                        E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                  1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                       (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                        E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                       (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2 - 7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + 
+                    (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                    (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                       (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                      (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+                1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 ((-3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                     (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                     (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                        (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + 
+                     ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                         (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                         (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                      (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                      (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                        (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) - 
+                    (3*((-105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                       (105*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                       (48*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*(-32/E^(r^2/4) + 
+                          (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*((80*r)/
+                          E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 64*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                         64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                         16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                          2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/
+                          4) + r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*(-1/8*
+                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                     4)))*(-4 + 1.8*^-11*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+                1.5*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                  3.*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                       (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                        E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                       (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                 (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+                 7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + (-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                  (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                 1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + 
+                   (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
+              ((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                   (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                        E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]))*
+                 Sin[theta]^2)/4 + 3*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-1 + 3*Cos[2*theta] - 6.*^-6*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) - 9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 - (3*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+              8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+          7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+            (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+              32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+              16*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              32*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+              Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                 r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
+                3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+               (((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                   (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                        E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+               (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2 + 6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+               (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
+             ((168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))/4 + (-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+               (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 3.*^-6*
+                (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Cos[2*theta] + 3*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 2.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+              (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+              (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+             (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+             6.*^-6*(3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2) - 3*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[theta]*Sin[theta]*
+              Sin[2*theta]*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+           (r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*
+                  r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))*(6*((3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+                1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + 
+                  (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 3*r*
+                 ((-15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                  (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) + 
+                (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 2 + (3*r*((-105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                    r^6 + (105*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                      8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                   (3*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                     64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+               (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              0.000027*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+              0.000027*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2) - 
+            (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*
+                    r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                 (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + 
+                  (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)*(-1 + 
+                3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              1.3499999999999999*^-11*r*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                -48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+             (3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 
+                3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              1.*^-6*(3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+               (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2))/
+           (2*r^2*(-9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-48/(E^(r^2/4)*r^3) + 
+         (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+         (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+           (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+           (((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                 (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 - (3*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*(-1 + 
+                 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) - 1.*^-6*
+                (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) - 
+                 (3*((21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                    (21*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (9*(-32/E^(r^2/4) + 
+                       (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                    (2*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                         (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                         (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                      64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/(4*
+                          E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                         2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4))*(-4 + 1.8*^-11*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 1.5*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 9.*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+            1.*^-6*(((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+           (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+               (((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                   (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                        E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)^2*(1 + 3*Cos[2*theta]) + 3*
+                ((3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(2 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
+                (3.*^-6*((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                    (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                    (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[theta]^2 + 
+                 3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                  ((-6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                   (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 - (3*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
+                 7.5*^-7*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*((21*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^5 - (21*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^4 + (9*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                     32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                    (21*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (9*(-32/E^(r^2/4) + 
+                       (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                    (2*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                         (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                         (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                      64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/(4*
+                          E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                         2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                    3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                         (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                         E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+              (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 6.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 - 
+            2.5*^-7*(6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])) - (3*((21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (21*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (9*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)*
+             ((-3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) - 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+              (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+             8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+              (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                 (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-840/(E^(r^2/4)*r^4) + 
+                 (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)*
+              ((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))) + 
+            (-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             ((3*((-105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                 (105*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (48*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                 (3*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                   64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((-15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^6 + (15*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^5 - (6*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+              (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+              (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+             8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+              (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+              (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                 (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-120/(E^(r^2/4)*
+                 r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+               (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
+                Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+            (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+           (1 + 3*Cos[2*theta])*((3*((21*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                 (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+             (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+             (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/
+                E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)^2 - 
+           7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+              r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/
+                E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*
+            (7.5*^-7*r^2*(5040/(E^(r^2/4)*r^5) - (630*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^6 + (297*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^5 - (87*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^4 + (19*(-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+               (4*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                 64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 16*r^2*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                 32*r*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                      (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                  (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                     (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r) + 
+             4*Csc[theta]^2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(-1 + 3*Cos[2*theta])*
+              Csc[theta]^2 + 3.*^-6*r^2*(720/(E^(r^2/4)*r^5) - 
+               (90*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+               (39*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+               (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2)) + 
+           (2.25*^-12*r^2*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)^2 + 9.000000000000001*^-12*r^2*
+              (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(-840/(E^(r^2/4)*r^4) + 
+               (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+               (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                 (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             1.8*^-11*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 
+             9.*^-12*r^2*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(5040/(E^(r^2/4)*r^5) - (630*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^6 + (297*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (87*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (19*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (4*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                    32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                   64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r) + 2*
+                Csc[theta]^2 + 3.*^-6*r^2*(720/(E^(r^2/4)*r^5) - 
+                 (90*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                 (39*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2)) - 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (720/(E^(r^2/4)*r^5) - (90*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^6 + (39*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (9*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-1 + 
+                 3*Cos[2*theta]) + 1.5*^-6*r^2*(5040/(E^(r^2/4)*r^5) - 
+                 (630*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                 (297*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (87*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                 (4*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                   64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2))/4)/(2*r^2*
+           (7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Csc[theta]*(1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(-6.*^-6*Cos[theta] + 
+              1.*^-6*Cot[theta]*Csc[theta]))*Sin[2*theta])/
+          (r^2*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+              (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-3*r*(-120/(E^(r^2/4)*r^4) + 
+              (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(240/(E^(r^2/4)*r^4) - 
+              (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) - 
+              9*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+            (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+            8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+         ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+             r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+             (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*
+        Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + 6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2 + 6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           ((3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + (1 + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(4 - 3.*^-6*r*(-120/(E^(r^2/4)*
+                  r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 6.*^-6*(-48/(E^(r^2/4)*
+                  r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
+              3.*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) + 6.*^-6*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(240/(E^(r^2/4)*r^4) - 
+              (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) - 
+              9*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                2.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+               Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                  r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+                (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2) + 
+            (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                ((168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta])*
+             (-8 + 3.6*^-11*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(4 - 
+                12*Cos[2*theta] - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 1.8*^-11*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 
+                 (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                    (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                       (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                      (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4))*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+            r*(((30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 - 
+                (30*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                (15*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 - (5*(-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + ((80*r)/E^(r^2/4) - 
+                  (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r^2)*(1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) - 1.*^-6*((-6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(
+                3*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                     32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4) + 1.*^-6*(240/(E^(r^2/4)*
+                  r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(
+                3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((-15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                  (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) - 
+                (3*((-105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                   (105*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                   (3*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                     64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*r*(((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*((3*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+           (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+           (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
+            ((168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/4 + (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*(
+                24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(240/(E^(r^2/4)*r^4) - 
+              (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
+           Sin[2*theta])/(r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) + 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                2.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
+             (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+            (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))*Sin[theta]^2*
+             (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*
+                  r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            6.*^-6*(3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) - 3*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[theta]*Sin[theta]*
+             Sin[2*theta]*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) + 
+              3*((-15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (6*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
+                 (240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                  (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+                3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 ((30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 - 
+                  (30*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                  (15*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 - (5*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
+                7.5*^-7*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 ((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-2 + 
+                  3*Sin[theta]^2) + (((-105*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^6 + (105*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^5 - (48*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                      32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                     64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                   3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                        (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                        E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+             (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*
+                  r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 - 
+                3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*((-3*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) - 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)*
+             (-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])) + (3*((21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (21*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (9*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+           (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+           (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+           (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
+                 (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                    8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+            (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+              (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+           (1 + 3*Cos[2*theta])*((3*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+             (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+             (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/
+                E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                 E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+            (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/
+                E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*
+                r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+              (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+              8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+             (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+             (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/
+                E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                 E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(240/(E^(r^2/4)*r^4) - 
+              (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(-0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + 6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(240/(E^(r^2/4)*r^4) - 
+              (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(6.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
+            ((168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/4 + (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*(
+                24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(240/(E^(r^2/4)*r^4) - 
+              (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) - 
+              9*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                2.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-4*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2) + 0.000018*
+               (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + (-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta])) - 6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                  (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                  (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2) - 0.000018*
+               (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - (-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta])) + 6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                  (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                  (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*
+                  r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            6.*^-6*(18*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + 3*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) - 6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                -48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2 + r*(240/(E^(r^2/4)*r^4) - 
+                  (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                  (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*
+                  r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + (2 - 6.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) - 3*r*
+                (720/(E^(r^2/4)*r^5) - (90*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^6 + (39*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (9*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) + 
+               (9*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                    32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4 + (3*r*(5040/(E^(r^2/4)*r^5) - 
+                  (630*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                  (297*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (87*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                  (4*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 32*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2)))/r^2 + (64/E^(r^2/4) - (64*r^2)/E^(r^2/4) - 
+                    64*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 64*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 64*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                    16*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                       (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                         (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                       2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*
+                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-120/(E^(r^2/4)*r^4) + 
+               (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+               (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)*(240/(E^(r^2/4)*r^4) - 
+               (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+               (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2) - 
+           r*(r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               (3*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                    32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)*(240/(E^(r^2/4)*r^4) - 
+               (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+               (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-48/(E^(r^2/4)*r^3) + 
+         (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+         (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+           (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+            (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4)))))/r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/
+                E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*
+                r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+              (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+              8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (6*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+                r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+             (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+             (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/
+                E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                 E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*((16*r)/E^(r^2/4) - (4*r^3)/
+                E^(r^2/4)))/r^5 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+           Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+              (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (21*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                   (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                 E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+             (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+             (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + (32*r^2)/
+                E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                 E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2 + 6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/
+               r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+            6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(240/(E^(r^2/4)*r^4) - 
+                (30*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 + 
+                (15*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + (1 + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) - 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+              (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/r^3)*(4 - 3.*^-6*r*(-120/(E^(r^2/4)*
+                  r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3) + 6.*^-6*(-48/(E^(r^2/4)*
+                  r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
+              3.*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                  32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) + 6.*^-6*(-48/(E^(r^2/4)*r^3) + 
+              (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+              (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4))*
+           Sin[2*theta])/(r*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+               (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 
+            1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                 (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 
+                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 8*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 - 3*Sin[theta]^2 + 3.75*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2 + 3*(-120/(E^(r^2/4)*r^4) + 
+                 (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                 (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(2 - 0.000012*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+                 1.*^-6*r*(240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                   (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r^2) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+               (240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 6.*^-6*
+                  (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                       E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                     8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                 1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                      (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                       E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                      (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*
+                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + 
+                   (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                   (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                      (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                     (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+               1.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-9*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - 
+                       (4*r^3)/E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - 
+                       (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                       (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                      32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2))/r)*Sin[theta]^2)/4 + r*(3*(720/(E^(r^2/4)*r^5) - 
+                     (90*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^6 + 
+                     (39*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                     (9*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (-32/E^(r^2/4) + 
+                       (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) - 
+                   (3*(5040/(E^(r^2/4)*r^5) - (630*((16*r)/E^(r^2/4) - 
+                         (4*r^3)/E^(r^2/4)))/r^6 + (297*(16/E^(r^2/4) - 
+                         (16*r^2)/E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4)))))/r^5 - (87*((-40*r)/E^(r^2/4) + 
+                         (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                       r^4 + (19*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                       r^3 - (4*((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                         32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                         64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                         32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*
+                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + (64/E^(r^2/4) - 
+                        (64*r^2)/E^(r^2/4) - 64*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 64*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        64*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) - 16*r^2*
+                         (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 32*r*((-5*r)/
+                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                          2) + 32*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/
+                          4) + r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 8*r^2*(-1/8*
+                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                    4)))*(-4 + 1.8*^-11*(24/(E^(r^2/4)*r^3) - 
+                  (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 1.5*^-6*
+                (24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) + 9.*^-12*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 + 
+            1.*^-6*(-0.000018*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + 6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 1.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                 (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + (-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                 (-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                1.5*^-6*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 - 7.5*^-7*r*(-840/(E^(r^2/4)*r^4) + 
+                  (105*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                  (48*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((80*r)/E^(r^2/4) - 
+                    (16*r^3)/E^(r^2/4) - 32*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 64*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    16*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 32*r*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    8*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
+             ((3*(-840/(E^(r^2/4)*r^4) + (105*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^5 - (48*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 
+                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((80*r)/E^(r^2/4) - (16*r^3)/E^(r^2/4) - 
+                   32*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   64*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 16*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   32*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 8*r^2*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(24/(E^(r^2/4)*r^3) - 
+                   (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                   8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                  (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                  E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+              (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+              (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                  E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+               (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+               (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + ((168/(E^(r^2/4)*r^3) - 
+                   (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                   (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                     (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1.*^-6 - 3.*^-6*
+                    Cos[2*theta]))/4) + 6.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              6.*^-6*r*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta] - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+                6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                      E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 Cos[2*theta]))*(-2 + 9.*^-12*(24/(E^(r^2/4)*r^3) - 
+                 (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+                (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                  (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                  (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                  (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                    (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*(9.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                    (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + (168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - (4*r^3)/
+                     E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                     E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(24/(E^(r^2/4)*r^3) - 
+                (3*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                2.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-120/(E^(r^2/4)*r^4) + 
+                (15*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^5 - 
+                (6*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(1 + 
+                7.5*^-7*(168/(E^(r^2/4)*r^3) - (21*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^4 + (9*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*((-40*r)/E^(r^2/4) + 
+                     (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 8*r^2*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 9.*^-6*(-48/(E^(r^2/4)*r^3) + 
+                 (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                 (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+              9.*^-6*r*(-48/(E^(r^2/4)*r^3) + (6*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 - (3*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((-40*r)/E^(r^2/4) + 
+                  (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                240/(E^(r^2/4)*r^4) - (30*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^5 + (15*(16/E^(r^2/4) - (16*r^2)/
+                    E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*((-40*r)/E^(r^2/4) + 
+                   (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (-32/E^(r^2/4) + (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+              3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                    E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                  8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                3*r*(-120/(E^(r^2/4)*r^4) + (15*((16*r)/E^(r^2/4) - 
+                     (4*r^3)/E^(r^2/4)))/r^5 - (6*(16/E^(r^2/4) - (16*r^2)/
+                      E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + ((-40*r)/E^(r^2/4) + 
+                    (8*r^3)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 8*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 9*(-48/(E^(r^2/4)*r^3) + 
+                  (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                  (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - 
+                   (4*r^3)/E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/
+                   E^(r^2/4) + 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(168/(E^(r^2/4)*r^3) - 
+               (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+               (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                 (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(24/(E^(r^2/4)*r^3) - (3*((16*r)/E^(r^2/4) - (4*r^3)/
+                   E^(r^2/4)))/r^4 + (16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 
+                 8*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(168/(E^(r^2/4)*r^3) - 
+                 (21*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 + 
+                 (9*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (-32/E^(r^2/4) + 
+                   (32*r^2)/E^(r^2/4) + 32*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) - 16*r^2*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 32*r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   8*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-48/(E^(r^2/4)*r^3) + 
+                (6*((16*r)/E^(r^2/4) - (4*r^3)/E^(r^2/4)))/r^4 - 
+                (3*(16/E^(r^2/4) - (16*r^2)/E^(r^2/4) + 8*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((-40*r)/E^(r^2/4) + (8*r^3)/E^(r^2/4) + 16*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 8*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2)))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L2-N3.txt b/psi4_analytical/psi4-m0-a1e-06-L2-N3.txt
new file mode 100644
index 0000000..39570a4
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L2-N3.txt
@@ -0,0 +1,14083 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+              (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+              (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+              (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+             (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                   E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)/4 + 3*((3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (1 - 3*Sin[theta]^2))^2)/(-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                  r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                    4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+               (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             ((3*((21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (21*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (9*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (2*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                   168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^5 - (3*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+           (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+              (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+             (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                  (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                  (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r)*((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                  r^5 - (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                    4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r))/4 + 3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + 
+                Csc[theta]^2)) + 3.*^-6*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r))/4 + 3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + 
+                Csc[theta]^2)) - (7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-3 + Csc[theta]^2))*((3*((-105*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^6 + (105*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (48*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                   168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r))/4 + 
+              3*((-15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (6*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                  (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                  (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (2*((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                 (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)) + 
+         (5.*^-7*(-9.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                  (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                  (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                  4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-24/(E^(r^2/4)*r^2) + 
+          (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+          (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+             4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+          (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+            12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+            4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*(((-6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+              (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+               (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2 + (1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (2 - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (4 - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 6.*^-6*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 3.*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + 6.*^-6*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4)))/
+           ((-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+               (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 3.*^-6*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 2.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+                Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+                 (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                       (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/r^3) - 7.5*^-7*(84/(E^(r^2/4)*
+                      r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                     r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                       4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                        E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                      48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                      12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2))/2) + 
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) + ((84/(E^(r^2/4)*r^2) - 
+                    (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                    (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                        E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                      48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                      12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta])*
+              (-8 + 3.6*^-11*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+          (3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 ((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2 + 3*((3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(2 - 0.000012*
+                   (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                        E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3) + 2.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                    (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                    (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                    (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                      12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/r^2) + 1.5*^-6*
+                   (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                        E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                        E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                        E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+                ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                  (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 6.*^-6*
+                   (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                        E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3) + 3.*^-6*r*(-60/(E^(r^2/4)*
+                      r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                     r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                       4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                      12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                   (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                        E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                        E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                        E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+                  7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/
+                        E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                    (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                        E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                       48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                       12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                       E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+                1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*
+                 ((-3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                     (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                     (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                         E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                      r^3 - (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                        48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                        12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                        24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                      r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                        E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 36*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                       12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                       4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                      (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                      (6*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                          E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                       r^4 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                        48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                        12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                        24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       r^3) - (3*((-105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                          E^(r^2/4)))/r^6 + (105*((24*r)/E^(r^2/4) - (12*r^3)/
+                          E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^5 - (48*(24/E^(r^2/4) - (48*r^2)/
+                          E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*((-96*r)/E^(r^2/4) + 
+                          (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(-96/E^(r^2/4) + 
+                          (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                          48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                          36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                          96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                          12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/
+                          E^(r^2/4) - 168*r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 36*r^3*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 144*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                         72*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 96*r*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                         12*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r*(1/(2*E^(r^2/
+                          4)) - r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                         24*r^2*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                          2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                     4)))*(-4 + 1.8*^-11*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+                1.5*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(4 - 12*Cos[2*theta] - 
+                  3.*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                       (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                       (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                       (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                   Sin[theta]^2) + 9.*^-12*(-24/(E^(r^2/4)*r^2) + 
+                   (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                   (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 + 
+             1.*^-6*(-0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2 + 6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                  (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                       E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+               (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                  (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                  (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                       E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+                 7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                      (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                     (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                     48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2))*((3*((21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (21*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                    (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                    ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                 7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                      (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                  Sin[theta]^2) - 9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+           (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+               (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+              (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+            (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+            (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+            (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^2 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+              48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+              12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+              Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                 r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                   4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(
+                -1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+            (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+               (((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                    (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                    ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+               (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2 + 6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+               (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[2*theta] - ((84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+               (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 3.*^-6*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 2.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
+                ((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*
+                ((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+              (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+             (-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+              Sin[theta]^2*(-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+             6.*^-6*(3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2) - 3*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[theta]*Sin[theta]*
+              Sin[2*theta]*(-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+           (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[theta]^
+                2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)))*
+             (6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*(
+                2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                  (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                 (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+                7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2) + 2*(-6*((3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 3*r*
+                 ((-15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                  (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) + 
+                (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/2 + 
+                (3*r*((-105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                   (105*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                       E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 168*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 36*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 144*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+               (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              0.000027*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+              0.000027*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2) - 
+            (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                  (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                 (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+                7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              1.3499999999999999*^-11*r*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                -24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+               Sin[2*theta]^2)*(3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              1.*^-6*(3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2))/
+           (2*r^2*(-9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[theta]^
+                2 + (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
+       (Sqrt[2]*r) + (-3.*^-6*r*(-24/(E^(r^2/4)*r^2) + 
+         (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+         (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+            4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+         (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+           12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                  4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+           (((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                 (6*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                 (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                 7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                      (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) - 1.*^-6*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r^3) - (3*((21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                       4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                    (21*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                        E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^4 + (9*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                       48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                       12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^3 - (2*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - 
+                       (18*r^4)/E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 36*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                       12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                       4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                    ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 168*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 36*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 144*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                         (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                         2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4))*(-4 + 1.8*^-11*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 1.5*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+            1.*^-6*(((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4))*
+             ((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+           (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+           (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/2 + 
+             3*Sin[theta]^2*(3.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+               (((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                    (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                    ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                   r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                     4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3)^2*(1 + 
+                 3*Cos[2*theta]) + 3*((3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (3*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(2 + 3.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 6*
+                Sin[theta]^2*(3.*^-6*((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                        E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                        E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - (48*r^2)/
+                        E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[theta]^2 + 
+                 3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*((-6*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^5 + (6*(24/E^(r^2/4) - 
+                      (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 - (3*((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + (-96/E^(r^2/4) + 
+                     (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                     48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r^2)*Cos[theta]^2 + 7.5*^-7*
+                  ((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/r^3)*
+                  ((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*(-2 + 3*Sin[theta]^2) + 
+                 (((21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                    (21*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                        E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^4 + (9*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                       48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                       12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^3 - (2*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - 
+                       (18*r^4)/E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 36*r^2*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                       12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                       4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                    ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 168*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 36*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 144*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                         (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                         2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                    3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                         (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+                        (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/
+                  4))*(-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 6.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 - 
+            2.5*^-7*(6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)*
+             ((-3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) - 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+           (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+              (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+             (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                  (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                  (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*
+           ((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (2*((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                 (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+               1.5*^-6*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*((3*((21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (21*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4 + 3*((3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))) + 
+            (-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             ((3*((-105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                 (105*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (48*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (13*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (3*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                   168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((-15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^6 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^5 - (6*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(1 - 
+                3*Sin[theta]^2))))/(-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)^2 + 
+         (5.*^-7*(-9.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                  (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                  (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                  4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2))/
+          (r*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+           (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+              (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+             (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3)*(-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+             1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+              (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                   E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+               (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                  E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                 36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+               (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-3 + Csc[theta]^2))^2/
+           (r^2*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+            (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (2*((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                 (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+             (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+             (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+               (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 4*r^3*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)^2 - 
+           7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+               (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 4*r^3*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*
+            (7.5*^-7*r^2*(2520/(E^(r^2/4)*r^4) - (630*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^6 + (297*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^5 - (87*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^4 + (19*((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (4*(-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                 168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                 24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*
+                  ((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                      (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                  (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                     (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r) + 
+             4*Csc[theta]^2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (360/(E^(r^2/4)*r^4) - (90*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^6 + (39*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^5 - (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                   E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+               ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^3)*
+              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-420/(E^(r^2/4)*r^3) + 
+                (105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                   E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)^2 + 9.000000000000001*^-12*r^2*
+              (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-420/(E^(r^2/4)*r^3) + 
+               (105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                 (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             1.8*^-11*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 
+             9.*^-12*r^2*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(2520/(E^(r^2/4)*r^4) - (630*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^6 + (297*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (87*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (4*(-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                   168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r) + 2*
+                Csc[theta]^2 + 3.*^-6*r^2*(360/(E^(r^2/4)*r^4) - 
+                 (90*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                 (39*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-3 + Csc[theta]^2)) - 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (360/(E^(r^2/4)*r^4) - (90*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^6 + (39*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (9*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(-1 + 
+                 3*Cos[2*theta]) + 1.5*^-6*r^2*(2520/(E^(r^2/4)*r^4) - 
+                 (630*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                 (297*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (87*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (19*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (4*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                   168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2))/4)/(2*r^2*
+           (7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Csc[theta]*(1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
+            Cot[theta]*Csc[theta] + 3*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) + 7.5*^-7*r*
+             (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                  (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                  (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-3*r*(-60/(E^(r^2/4)*r^3) + 
+              (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+              (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r) - Csc[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+            (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+            (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + 
+           (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+             r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+             (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*
+        Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                  4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+           (-0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + 6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*(
+                84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           ((3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + (1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (4 - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              6.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) + 6.*^-6*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4)))/
+          ((-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+              (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              3*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+               Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+                (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/r^3) - 7.5*^-7*(84/(E^(r^2/4)*
+                     r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                    r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                      4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2))/2) + 
+            (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + ((84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta])*
+             (-8 + 3.6*^-11*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 1.8*^-11*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                 (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                    (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                        E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                       48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                       12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                       E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4))*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+            r*(((30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 - 
+                (30*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                (15*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                (5*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^3 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                   E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r^2)*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) - 
+              1.*^-6*((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(
+                3*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 
+                (3*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                      (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                      (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                      (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                      (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                     (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                     48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4) + 1.*^-6*(120/(E^(r^2/4)*
+                  r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(
+                3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4) + 1.*^-6*(-24/(E^(r^2/4)*
+                  r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((-15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                  (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) - 
+                (3*((-105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                   (105*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                       E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 168*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 36*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 144*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*r*(((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 - 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2)/4))*((3*(-420/(E^(r^2/4)*r^3) + 
+                 (105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+           (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+           (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                  4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2)*
+           (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[2*theta] - ((84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(120/(E^(r^2/4)*r^3) - 
+              (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              3*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+            (-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[theta]^2*(-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            6.*^-6*(3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[theta]*Sin[theta]*
+             Sin[2*theta]*(-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) + 
+              3*((-15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (6*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*Sin[theta]^2*(3.*^-6*(120/(E^(r^2/4)*r^3) - 
+                  (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                  (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*
+                 ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                  (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+                3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*((30*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^6 - (30*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^5 + (15*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 - (5*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r^2)*Cos[theta]^2 + 7.5*^-7*(-60/(E^(r^2/4)*r^3) + 
+                  (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 ((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                  (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*(-2 + 3*Sin[theta]^2) + 
+                (((-105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                   (105*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                       E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 168*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 36*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 144*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                   3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                        (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+                       (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+             (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*((-3*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)*
+             (-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+              (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - 
+             (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))))/r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+           (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+           (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+               r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+               (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+             4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+               (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[theta]^
+                2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*(1 + 
+                3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+            (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2 + 
+              (((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+             (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+             (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+               (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 4*r^3*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+            (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+            (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^3 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+              48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+              12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+           Cos[theta]^2*(-3.*^-6*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+             (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+             (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+               (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 4*r^3*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(120/(E^(r^2/4)*r^3) - 
+              (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(-0.000018*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(120/(E^(r^2/4)*r^3) - 
+              (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           Sin[theta]*(6.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[2*theta] - ((84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                  (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(2 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Sin[2*theta]^2 + 9.*^-6*r*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+              (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              3*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-4*r*(120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2) + 0.000018*
+               (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) + (-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) - 
+              6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                  (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*r*(120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2) - 0.000018*
+               (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - (-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                  (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*r*(120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            6.*^-6*(18*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + 3*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2) - 6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                -24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
+                r*(120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)))*Sin[2*theta]^2*
+             (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))*
+            (3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + (2 - 6.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) - 3*r*
+                (360/(E^(r^2/4)*r^4) - (90*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^6 + (39*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (9*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^3) + 
+               (9*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4 + (3*r*(2520/(E^(r^2/4)*r^4) - 
+                  (630*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                  (297*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (87*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                      E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                  (19*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^3 - (4*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2)))/r^2 + ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 
+                    168*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    36*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    144*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 12*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    24*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                       (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                         (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                       2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 4*r^3*
+                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-60/(E^(r^2/4)*r^3) + 
+               (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+               (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 - (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                   E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 7.5*^-7*r*
+                (-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                   E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                  E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+             1.*^-6*(3*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^3) - (3*(-420/(E^(r^2/4)*
+                    r^3) + (105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                   r^5 - (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                     4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                      E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                     E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-24/(E^(r^2/4)*
+                 r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+               (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+               (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2))/
+          (2*r^3*(-9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                 (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+              (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+            (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+            (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+              r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + 
+           (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+             r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+             (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*
+        Sin[theta]*((1.5*^-12*r*((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+               4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+            (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^3 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+              48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+              12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+           Cos[theta]*Sin[theta]*(-9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 + (6*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+             Sin[theta]^2 - (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/
+                r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                  4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2))/2))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+             (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+             (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+               (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 4*r^3*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                E^(r^2/4)))/r^5 - (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+               4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+              12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+              (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                 E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (21*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+             (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+             (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+               (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 4*r^3*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+              Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+            (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 
+                4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                  E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                  (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                  E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (1 + 3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(2 - 3*Sin[theta]^2)))*
+           (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - 
+                 (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - 
+                 (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r^2) - 
+            0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + (1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+             (2 - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) - 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+              (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (4 - 3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              6.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+              7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                  (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                  48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                    (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                    (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) + 6.*^-6*(-24/(E^(r^2/4)*r^2) + 
+              (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+              (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^4))*
+           Sin[2*theta])/(r*(-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - 
+               (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            6.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                    (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                   (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                   48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2 + 3*(-60/(E^(r^2/4)*r^3) + 
+                 (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(2 - 0.000012*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) + 3.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                   (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                   (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/r^2) + 1.*^-6*r*
+                  (120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - (48*r^2)/
+                       E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2) + 1.5*^-6*
+                  (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                       E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+               (120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                     E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 6.*^-6*
+                  (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + 
+                   (105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                   (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                      E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2))/r)*Sin[theta]^2) + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-9*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                       (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                       (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                       (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                       (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                      (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                      48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2))/r)*Sin[theta]^2)/4 + r*(3*(360/(E^(r^2/4)*r^4) - 
+                     (90*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                     (39*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                     (9*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                         E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                      r^4 + ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                       48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                       12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                       24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      r^3) - (3*(2520/(E^(r^2/4)*r^4) - (630*((12*r^2)/
+                          E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^6 + 
+                      (297*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                      (87*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                          E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                       r^4 + (19*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 
+                         48*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                         12*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                         24*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                       r^3 - (4*(-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - 
+                         (18*r^4)/E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 36*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 96*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                         12*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 12*r^2*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                         4*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                      ((312*r)/E^(r^2/4) - (108*r^3)/E^(r^2/4) - 168*r*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 36*r^3*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 144*
+                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 72*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        96*r*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                        48*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) - 12*r^3*
+                         (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r*
+                         (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*((-5*r)/
+                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                          2) + 24*r^2*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2) + 4*r^3*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                    4)))*(-4 + 1.8*^-11*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 1.5*^-6*
+                (12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                     E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*(84/(E^(r^2/4)*r^2) - 
+                   (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/
+                       E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   ((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))/2 + 
+            1.*^-6*(-0.000018*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + 6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 1.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                  (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                 (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              (-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 
+                3.*^-6*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                 (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                      E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+                7.5*^-7*r*(-420/(E^(r^2/4)*r^3) + (105*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (48*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(24/E^(r^2/4) - 
+                     (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + (-96/E^(r^2/4) + 
+                    (156*r^2)/E^(r^2/4) - (18*r^4)/E^(r^2/4) + 
+                    48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 36*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 96*r*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                       2))/r)*Sin[theta]^2))*((3*(-420/(E^(r^2/4)*r^3) + 
+                 (105*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                 (48*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*((-96*r)/E^(r^2/4) + (36*r^3)/E^(r^2/4) + 48*r*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 12*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 24*r^2*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 4*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + (-96/E^(r^2/4) + (156*r^2)/E^(r^2/4) - (18*r^4)/
+                    E^(r^2/4) + 48*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   36*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) - 12*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   12*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 4*r^3*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(12/(E^(r^2/4)*r^2) - 
+                   (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                   ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(12/(E^(r^2/4)*r^2) - 
+                  (3*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  ((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) - 9.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(120/(E^(r^2/4)*r^3) - 
+                (30*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 + 
+                (15*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+              (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+              (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+            3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                 (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                 E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+               Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+               (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+               (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                 12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-60/(E^(r^2/4)*r^3) + 
+                (15*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^5 - 
+                (6*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                ((84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                       E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - (12*r^3)/
+                       E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - (48*r^2)/
+                       E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                     (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1.*^-6 - 3.*^-6*
+                    Cos[2*theta]))/4) + 6.*^-6*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              6.*^-6*r*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[2*theta] - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) + 6*(-24/(E^(r^2/4)*r^2) + 
+                  (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                  (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[2*theta]))*
+             (-2 + 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+                (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                 Sin[theta]^2) + 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                 (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                 (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                   12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+            1.*^-6*(9.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + (84/(E^(r^2/4)*r^2) - (21*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + (9*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(24/E^(r^2/4) - 
+                   (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)/4 - 
+              3.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 
+              3*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(-1 + 3*Cos[2*theta])))*
+             (-3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])*(1 + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                  (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                  (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                     12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                    (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+              9.*^-6*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                    (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                    (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+              9.*^-6*r*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - 
+                   (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                   E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 4*r^3*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                120/(E^(r^2/4)*r^3) - (30*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                    E^(r^2/4)))/r^5 + (15*((24*r)/E^(r^2/4) - (12*r^3)/
+                    E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (5*(24/E^(r^2/4) - (48*r^2)/
+                    E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + ((-96*r)/E^(r^2/4) + 
+                  (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                  4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[2*theta]^2 + 
+              3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(3*r*(-60/(E^(r^2/4)*r^3) + (15*((12*r^2)/E^(r^2/4) - 
+                     (2*r^4)/E^(r^2/4)))/r^5 - (6*((24*r)/E^(r^2/4) - 
+                     (12*r^3)/E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) - 
+                9*(-24/(E^(r^2/4)*r^2) + (6*((12*r^2)/E^(r^2/4) - (2*r^4)/
+                      E^(r^2/4)))/r^4 - (3*((24*r)/E^(r^2/4) - (12*r^3)/
+                      E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + (24/E^(r^2/4) - (48*r^2)/
+                     E^(r^2/4) + (6*r^4)/E^(r^2/4) + 12*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 4*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                   (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                   E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(84/(E^(r^2/4)*r^2) - 
+               (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+               (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                 (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                 4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+             3.*^-6*(12/(E^(r^2/4)*r^2) - (3*((12*r^2)/E^(r^2/4) - 
+                  (2*r^4)/E^(r^2/4)))/r^4 + ((24*r)/E^(r^2/4) - (12*r^3)/
+                  E^(r^2/4) + 4*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(84/(E^(r^2/4)*r^2) - 
+                 (21*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 + 
+                 (9*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*(24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                    12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2)))/r^2 + ((-96*r)/E^(r^2/4) + 
+                   (36*r^3)/E^(r^2/4) + 48*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 12*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 24*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   4*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                Sin[theta]^2) - 4.5*^-12*(-24/(E^(r^2/4)*r^2) + 
+                (6*((12*r^2)/E^(r^2/4) - (2*r^4)/E^(r^2/4)))/r^4 - 
+                (3*((24*r)/E^(r^2/4) - (12*r^3)/E^(r^2/4) + 4*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                (24/E^(r^2/4) - (48*r^2)/E^(r^2/4) + (6*r^4)/E^(r^2/4) + 
+                  12*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  4*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2)))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m0-a1e-06-L2-N4.txt b/psi4_analytical/psi4-m0-a1e-06-L2-N4.txt
new file mode 100644
index 0000000..3724111
--- /dev/null
+++ b/psi4_analytical/psi4-m0-a1e-06-L2-N4.txt
@@ -0,0 +1,14193 @@
+(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
+        (1 - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+              r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+              (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+              (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-1.*^-12*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)/4 + 3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
+          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2)^2 - 
+         (1.*^-6*(-5.*^-7*(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) + 
+               (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)^2 + 
+            (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*((3*((21*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (21*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (9*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^5 - (3*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2)^2))/Sqrt[2] + 
+      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - 
+           (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+           (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((5.*^-7*(7.5*^-7*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
+                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r)*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r))/4 + 3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) + 
+            3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)*
+             ((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r))/4 + 3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) - 
+            (7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r) - Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
+                Csc[theta]^2))*((3*((-105*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^6 + (105*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (48*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r))/4 + 
+              3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^3)*(-3 + Csc[theta]^2))))/
+          (7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))^2 - 
+         (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
+            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
+                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
+            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
+                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) + 
+   (-1/2*(-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+             r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+             (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+            (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+            8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+            2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+         ((1.5*^-6*Cos[theta]*Sin[theta]*(((-6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                  (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                 48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                 8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*
+              (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
+            (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+            (1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                Cos[2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^4)))/((-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+               (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
+                4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*
+                 ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                    (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                    ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                  7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                       r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2))/2) + 
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                 ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
+                        E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 6.*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2)))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+          (3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 ((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 
+                3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                 (2 - 0.000012*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                       r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                       E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/r^3) + 2.*^-6*(-12/(E^(r^2/4)*r) + 
+                    (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                    (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                    ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+                  1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                       r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2) + ((-6*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(-2 + 6.*^-6*(6/(E^(r^2/4)*r) - 
+                    (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                    ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                  3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                       r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                   (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
+                        E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                    (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                    (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                        E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((-312*r)/
+                       E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/E^(r^2/4) + 
+                      96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                      32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2))/r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+                  (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 ((-3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                     (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                     (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                         E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                      r^3 - (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                         E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + 
+                     ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                        E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                       8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                       2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2 + 
+                  r*(3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                      (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                      (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                          E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                       r^4 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                         E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                        2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) - 
+                    (3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                       (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                          2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                        r^5 - (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                          (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                        r^4 + (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
+                          (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                          2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*((-312*r)/
+                          E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                          E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                          8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                          2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                       (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                          E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                         64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                         8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                          2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                     4)))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                 (1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                    (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                    (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                    (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^2 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
+                   Sin[theta]^2) + 9.*^-12*(-12/(E^(r^2/4)*r) + 
+                   (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 6*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                  (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
+                       E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                       E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + (-12/(E^(r^2/4)*r) + 
+                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                  (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                  (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
+                       E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                       E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                   (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
+              ((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                   (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                     r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
+                ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+        r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/
+                E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+          7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
+                E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+             r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*
+                r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                     (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+              (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(
+                -1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+              8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+           Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                  (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+               (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                 48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                 8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (5.*^-7*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                   (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                     r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))*
+            (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+           (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+              (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (-0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2 + 6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+               7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+          (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+             ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+            (6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[2*theta] - ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+               3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)))/
+           (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+            (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+          (1.5*^-6*(3.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2 + (42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
+                4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
+                ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+              (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2) - (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+               ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+              Sin[theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2) + 6.*^-6*(3*((3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2)^2) - 
+          (5.*^-7*r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))*(6*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 
+                3*Sin[theta]^2)*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                  (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+              2*(-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                3*r*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^3) + (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 2 + (3*r*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                   (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                   (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                       E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                      E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+               (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              0.000027*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+              0.000027*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                  (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)*(-1 + 
+                3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) + 
+              1.3499999999999999*^-11*r*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+             (3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*(
+                1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 1.*^-6*(3*((3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+               (1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2))/(2*r^2*
+            (-9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
+     (-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+          r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+            2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+         ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+           8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+        ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2)*(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+               r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*r*Cos[theta]*Sin[theta]*
+           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*
+           ((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*r*Cos[theta]*Sin[theta]*
+           (-1/2*((((-6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                 (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) - 1.*^-6*(-12/(E^(r^2/4)*r) + 
+                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r^3) - (3*((21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                       2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                    (21*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^4 + (9*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                        E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                    (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                        E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                       8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                       2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                    (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                       E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      16*r^3*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                         2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2)) + 1.*^-6*(((-6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] - 
+                6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) + 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+              r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+         7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((-1.*^-12*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                 (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+              (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                   (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                     r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                   (-2 + 3*Sin[theta]^2)))/4))^2)/
+          (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (1.*^-6*(((9.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^5 - (3*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 6*
+                Sin[theta]^2*(3.*^-6*((-6*((8*r^3)/E^(r^2/4) - r^5/
+                        E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     r^2)^2*Cos[theta]^2 + 3.*^-6*(-12/(E^(r^2/4)*r) + 
+                   (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                  ((-6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                   (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                   (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
+                 7.5*^-7*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                  ((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(-2 + 
+                   3*Sin[theta]^2) + (((21*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4)))))/r^5 - (21*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (9*(48/E^(r^2/4) - 
+                       (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^3 - (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                       (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                       8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                         r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                       2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                    (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                       E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
+                          4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 24*r^2*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      16*r^3*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                         2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                    3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                         r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                         E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+              (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 
+                3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)*((-3*((21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] + 
+                6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) - 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
+ ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - 
+           (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+           (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        ((-5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
+            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
+                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*((3*((21*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2)) - 
+         (1.*^-6*(-((3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*((3*((21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 3*
+                ((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))) + 
+            (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*((3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^6 + (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                 (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2)/4 + 3*((-15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^6 + (15*((24*r^2)/E^(r^2/4) - 
+                   (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^5 - (6*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^3)*(1 - 3*Sin[theta]^2))))/
+          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2)^2 + (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
+            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
+                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2))/(r*(7.5*^-7*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
+          (r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - 
+           (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+           (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+         3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+          (-1 + 3*Sin[theta]^2))*
+        (-1/4*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+              (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
+             7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+               (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+             6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-3 + Csc[theta]^2))^2/
+           (r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r) - Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 + 
+                Csc[theta]^2))^2) + 
+         (7.5*^-13*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+            (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*Sin[theta]^2)/4 + 
+            3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
+          (-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+              r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
+                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) + 
+         (1.125*^-12*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
+             2 - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+              r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+             (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*
+                r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*
+            (7.5*^-7*r^2*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
+                  (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
+                  (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2)))/r^2 + (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - 
+                 (128*r^4)/E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                 24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                   (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*
+                  ((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                      (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                   (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                  (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                     (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                   (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r) + 
+             4*Csc[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
+              (180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^6 + (39*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+               (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^3)*
+              (-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)^2 + 9.000000000000001*^-12*r^2*
+              (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-210/(E^(r^2/4)*r^2) + 
+               (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                 (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                 8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                   r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                    2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                 8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                   (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
+             1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 
+             9.*^-12*r^2*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
+              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
+              (7.5*^-7*r^2*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r) + 2*
+                Csc[theta]^2 + 3.*^-6*r^2*(180/(E^(r^2/4)*r^3) - 
+                 (90*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                 (39*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
+                (180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
+                (1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                 (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                    E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                      (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                        (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) + 
+                   16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                    (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
+                Sin[theta]^2))/4)/(2*r^2*
+           (7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                  (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+               (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                 48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                 8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+             Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)*(-3 + Csc[theta]^2))^2) + 
+         (7.5*^-7*(4*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
+                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
+           (1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
+           Sin[2*theta])/(r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3) + 
+            1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) + 
+            7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
+                2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                  r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                   2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                  (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 + 
+            6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+               r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-3 + Csc[theta]^2))*(-3*r*(-30/(E^(r^2/4)*r^2) + 
+              (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
+              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) - 
+            Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
+       Sqrt[2]))/(Sqrt[2]*r) - 
+   ((-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+          r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+            2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+         ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+           8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+        ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2)*(-0.000018*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           ((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^4)))/((-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-12*Cos[theta]*Sin[theta]*
+           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*
+           (-3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
+              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          ((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
+               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2*Sin[theta]^2 - 
+              (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+                (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2))/2) + 
+            (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
+                 (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 6.*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(4 - 
+                12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              1.8*^-11*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (-((((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)*
+                (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                 (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                    (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                    (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                        E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                     r^3 - (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                        E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                       2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + ((-312*r)/
+                       E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/E^(r^2/4) + 
+                      96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                      32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                      96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                        (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                        (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                      8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                         2))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2)) - r*(((30*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^6 - (30*((24*r^2)/E^(r^2/4) - 
+                   (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^5 + (15*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^4 - (5*(48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^3 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) - 1.*^-6*((-6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 
+                (3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                     (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
+                   (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4) + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                  (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^3) - (3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^6 + (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                   (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                   (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 - 
+                   (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                       E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                      E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*r*(((-6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+                (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                 4))*((3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) + 
+       r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+              r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+         7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        ((5.*^-7*(-9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+              3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (5.*^-7*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4))*
+           (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
+           (6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
+            ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)))/
+          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
+              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
+                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
+          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (1.5*^-6*(3.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
+               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*
+             (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) - (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+              ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
+             Sin[theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
+             (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (2.5*^-7*(2*(9.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) + 
+              3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                (6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^3)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*Sin[theta]^2*(3.*^-6*(60/(E^(r^2/4)*r^2) - 
+                  (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                  (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*Cos[theta]^2 + 3.*^-6*(-12/(E^(r^2/4)*r) + 
+                  (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 ((30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 - 
+                  (30*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
+                  (15*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
+                  (5*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^3 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 + 
+                7.5*^-7*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*((21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-2 + 
+                  3*Sin[theta]^2) + (((-105*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^6 + (105*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^5 - (48*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (13*(48/E^(r^2/4) - 
+                      (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                    r^3 - (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                      (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                   (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                      E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                     48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                       (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                        (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                        2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                        2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 + 
+                   3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                        r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                        E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
+             (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 - 
+                3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*((-3*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 
+                3*Cos[2*theta] + 6.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)*(-6*((3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 
+                3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
+      (2*Sqrt[2]*r) - 
+     (r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+              r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+             2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+         7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+            r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+              2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+           (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+           (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+             48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+             8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+             16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                  r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
+                (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
+        (-1/4*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)^2/
+           (r^4*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (2 - 3*Sin[theta]^2)))^2) + 
+         (7.5*^-13*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+            (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+           ((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
+                (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
+             (3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                (-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (-2 + 3*Sin[theta]^2)))/4)))/
+          (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
+                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+            (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+            (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*
+                r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^3 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
+              (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+              2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
+           (-3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+            ((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
+          (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
+                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 - 
+           3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
+              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
+                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (-0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + 6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
+              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
+                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
+           (6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] - 
+            ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              (2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(1 + 3*Cos[2*theta])))/4 + (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*Sin[2*theta])/
+          (r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (2.5*^-7*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+           (-3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+             (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+            9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
+              (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
+          (r^3*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(-6.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2 + (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
+               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-4*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2) + 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) + (-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) - 
+              6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
+            2*Cos[2*theta]*(4*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
+                 (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) + 
+              6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) + 
+                1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
+               (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 6.*^-6*(18*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
+                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2) - 6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                -12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2 + r*(60/(E^(r^2/4)*r^2) - 
+                  (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                  (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                  (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r^2)))*Sin[2*theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2)))/
+          (r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) - 
+         (-2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2) + 
+           r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+               (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2) + (2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) - 3*r*
+                (180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^3) + (9*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 
+               (3*r*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                     (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                  (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                     E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                    48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                      (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                       (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                         (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                       2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
+                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(-30/(E^(r^2/4)*r^2) + 
+               (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+               (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 + 
+             1.3499999999999999*^-11*r*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
+                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+               1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                 (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+              (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
+            (3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
+              (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2) + 1.*^-6*(3*(-30/(E^(r^2/4)*r^2) + 
+                 (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^3) - 
+               (3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                   r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                    (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
+              (1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-12/(E^(r^2/4)*r) + 
+               (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+               (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
+               (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+               (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+               (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+              Sin[theta]^2 + (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
+                (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                  r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                    2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (2 - 3*Sin[theta]^2)))^2)) - 
+       3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+          r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+            2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+         ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+           8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+           2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
+        ((1.5*^-12*r*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+            (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+            (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*
+                r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  2)))/r^3 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
+              (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+              2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[theta]*
+           (-9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + 
+                 (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+              (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
+              (-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                   (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2))/2))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+            (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
+                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) - 
+         (2.2500000000000003*^-12*r*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+             r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+            ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+              8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+              2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
+           (1 + 3*Cos[2*theta])*Sin[theta]*
+           (((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+              (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+              (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
+             (1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*
+             (3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                 (21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                 (9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                 (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                     E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                    2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                 ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                    E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                   16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                     (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                     (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                   8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      2))/r)*Sin[theta]^2)/4)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+             (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+             (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+             (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
+                E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                 r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
+                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 + 
+           3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+              r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+            (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+            (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) + 
+         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+            6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+               r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                 E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
+              1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2))*
+           (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 + 
+                3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
+             (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
+                4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
+          (r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
+                r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                  E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
+             Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 - 
+                3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+             (1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) + 
+         (7.5*^-7*(4*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
+                 (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                   r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
+                 (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
+                2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
+                -30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 
+                3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*(1 + 3*Cos[2*theta])))*
+           (1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
+                42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) - 
+              (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+             (4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
+              6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
+                2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                 r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                  (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                  8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                    r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
+                     2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) + 
+                  8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) + 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                     2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) + 
+              (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+              (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+              ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 
+              7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                   (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                  (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                   (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^4))*Sin[2*theta])/
+          (r*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
+           (-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) - 
+         (3.*^-6*Cos[theta]*Sin[theta]*
+           (((4.5*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                  r^3)*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 3*
+                (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
+                (2 - 0.000012*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))))/r^3) + 3.*^-6*(-12/(E^(r^2/4)*r) + 
+                   (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                   (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                   ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
+                 1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r^2) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2) + (60/(E^(r^2/4)*r^2) - 
+                 (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                 (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                 (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                  r^2)*(-2 + 6.*^-6*(6/(E^(r^2/4)*r) - 
+                   (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
+                 1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                      r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                      (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                      (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                     (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                   (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                   (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                   (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                   (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                       E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                      2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                   ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                      E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                         E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                     8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                       r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                     2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) + 
+               1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                ((-9*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                       r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                       (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                       (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                       (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                     r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                      (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                      8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                        r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                      2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
+                  4 + r*(3*(180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - 
+                        r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) - 
+                        (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) - 
+                        (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) - 
+                       (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                      r^3) - (3*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/
+                          E^(r^2/4) - r^5/E^(r^2/4)))/r^6 + 
+                      (297*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                         2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
+                      (87*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                          E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
+                       r^4 + (19*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + 
+                         (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                         2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
+                      (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                          E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                         8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                         2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
+                      (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
+                         E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*
+                          E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                        64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) - 
+                          r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                          (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                          r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                        8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*
+                         (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) + 
+                          (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
+                          (4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) + 
+                          (r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
+                          2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
+                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
+                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
+                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                          2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
+                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
+                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
+                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
+                    4)))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
+                (1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                (4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) - 
+                   (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                   (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
+                (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
+                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 + 
+                1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
+                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + (-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
+                 (-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
+                 (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                   r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + 
+                  (105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                  (48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                  (13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
+                  (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
+                      E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
+                     2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
+                  ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
+                     E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
+                        E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                    8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                      r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                         (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                         r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                    2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
+             ((3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) - 
+                    (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
+                  r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - 
+                   (16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
+                   8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) - 
+                     r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
+                        (4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) - 
+                        r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
+                   2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
+                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
+                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
+                  (6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                     2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
+              3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 
+                3*Cos[2*theta] - 6.*^-6*(6/(E^(r^2/4)*r) - 
+                  (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
+              9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2)))/
+          (2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                  r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                  E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+              (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+              (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+              (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                 (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                 (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                  (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+             Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                 r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                 E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
+                3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
+                1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+             (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                  2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+               ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                 2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                      r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 + 
+         (3.*^-6*Sin[2*theta]*((3*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 
+                ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                    r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                      2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                   (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                       E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                         (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                   (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                     48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                     8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                     16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                          r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
+              6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 6.*^-6*r*(-12/(E^(r^2/4)*r) + 
+                (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) - 
+                (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 + 
+                (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Cos[2*theta] - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3) + 6*(-12/(E^(r^2/4)*r) + 
+                  (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                  (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                  ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
+                 Cos[2*theta]))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 + 
+                3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) - 
+                (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+               Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 + 
+                3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
+              4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - 
+                 (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
+              (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
+               4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                    r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                     E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                    E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                     r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
+                2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - 
+                  (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                  (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                  (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                      E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                  (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                    48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                    8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                    16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                         r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-30/(E^(r^2/4)*r^2) + 
+                (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 - 
+                (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(1 + 
+                7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) - 
+                     (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                    (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                   r)*Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) + 
+                 (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 - 
+                 (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                 ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                   8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 + 
+              9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                    E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                   E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + 
+                    r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
+                60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
+                (5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                    E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                      (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
+                (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                  48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                  8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
+                 r^2)*Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+                (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
+                3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - 
+                     r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - 
+                     (8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - 
+                    (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) - 
+                9*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/
+                      E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
+                      E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
+                        (4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
+                     E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
+                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                          (4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))))/
+          (r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - 
+                   r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
+                   E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
+                 r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) - 
+               (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+               (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                   E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - 
+                 (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
+                  (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                   (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+              Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - 
+               (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+               ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                  (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
+              (-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) - 
+                 (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 + 
+                 (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
+                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
+                 (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
+                     E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
+                       (4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) - 
+                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
+                 (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 
+                   48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
+                   8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                   16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                        r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - 
+                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
+                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
+                (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
+              (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
+                 r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 
+                   2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
+                ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 
+                  8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
+                  2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
+                       r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2)))/
+      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2
diff --git a/psi4_analytical/psi4-m1-a1e-06-L0.5-N1.txt b/psi4_analytical/psi4-m1-a1e-06-L0.5-N1.txt
new file mode 100644
index 0000000..a8000f9
--- /dev/null
+++ b/psi4_analytical/psi4-m1-a1e-06-L0.5-N1.txt
@@ -0,0 +1,444561 @@
+((I*Csc[theta]*
+     ((((-I)*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)/4)*Cos[phi]*Sin[2*theta])*
+            ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                (1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                  Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*(
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                -((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+                ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 2.1599999999999998*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-13*Sin[phi]^2*(
+                ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]*
+                    (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                     2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r + 
+             (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 
+             (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 
+             (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                  Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 
+             5.*^-7*((1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
+                 (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2) + 
+             (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
+                 ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                    Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cot[theta]*Sin[phi]*Sin[2*theta]*
+                    (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[
+                          2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                     ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                        2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta]))) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
+                    ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                       (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                         (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                         (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                          (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                        (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                       Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                          Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                         Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                         2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                          Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1.*^-6*Sin[theta]^2*(0.000027*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                        (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + 
+                       ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                         (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
+                        2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
+                    2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                    Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                    (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                        Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                         (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
+                        2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
+                    2)))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+             (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+              r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]*
+            ((-1.*^-6*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                (-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))))/(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) + (1.25*^-13*Sin[phi]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
+              ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                 Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
+              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]*
+              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
+              Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))*
+              ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
+              Sin[theta]*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + r*
+                ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]*
+                   (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                     Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                          r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+                 (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]*
+                   (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
+                   (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r^2)*Cos[theta]*(1.*^-12*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                     Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                          r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]*
+                   (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*
+                     Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
+                   Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                   (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*(-0.9375/
+                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                    0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                         (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                          2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                         Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                          Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                         (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                        (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                          Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                          Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                        Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                        Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/
+                         (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*Cos[phi]^3*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
+                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                         (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                          Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
+                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*Sin[phi]*
+              ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
+                    Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[theta]^2)/2))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
+                    (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                       (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                         (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                        16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 
+                         2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                         6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                         2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + 
+                      Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 
+                        3*Sin[6*theta])))))/(-2 + 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 
+           1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+             (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
+            ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))*(
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
+              (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(4 - 
+                1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 2.1599999999999998*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*(
+                -1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                  2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                       Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                    1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                       Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                     2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                  9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                  72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                       Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) + (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                   (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                  5.*^-13*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(4*Cos[theta]*
+                     Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
+                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (2.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 
+                    3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                  1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                       Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      Cos[phi]^2*Sin[4*theta])) + 6.*^-6*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Sin[theta]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                     4 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                  3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                   (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                    1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                       Sin[4*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 2.1599999999999998*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2 - (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*((-1.*^-6*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*(
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
+                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))*((-1.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+             (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]*
+                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                   Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                    Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                        Sin[phi]*Sin[4*theta]))/4)) + 
+                2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
+                       5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
+                       5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                          Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+                        Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                         Cos[phi]^2*Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                 Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                  Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
+                9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                    2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                       2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-7*(1.*^-6*
+                 (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
+                 Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                   (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
+                    3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
+                   (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
+                        3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
+                     Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                      6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
+                     Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                     Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
+                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                      Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])*
+                     Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^
+                        2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + 
+                      Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 
+                        3*Sin[6*theta]))))))/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))^2))))/(Sqrt[2]*r) + 
+        (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]^2*
+              (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*
+                     Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*
+                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            5.*^-7*((1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                  (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                 ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
+                (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                 ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))) - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                 (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*
+                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/4 + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
+                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2) + 
+            (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
+                ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
+                   Sin[2*theta])/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                   Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[2*theta]*Sin[phi]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                   Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                       2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                      (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                         (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 
+                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                         (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                       (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/
+                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                      Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))^2 + 
+                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                       Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                        (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
+                       2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Cos[phi]*(1 + 2*Cos[
+                          2*theta])) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                   Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                       Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                        (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
+                       2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Cos[phi]*(1 + 2*Cos[
+                          2*theta])) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
+                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)))/
+             r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+            (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*
+                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+           ((-1.*^-6*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Sin[phi]*
+              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
+                   Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
+             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
+             Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*Sin[theta]*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + 
+              r*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+                (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                   (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r^2)*Cos[theta]*(1.*^-12*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                    Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
+                  Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                  (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*(-0.9375/
+                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+                        (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                        (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
+                          theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                         Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
+                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                         Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*Sin[phi]*
+             ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
+                   Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/
+                  2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
+                   (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                        (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                       16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*
+                       (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                        6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                        2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                     Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^
+                       2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*
+                      (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + 
+          r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+           ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*
+              (-1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                    Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                   1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                      Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
+                   3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                  (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                 5.*^-13*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                    Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(4*Cos[theta]*
+                    Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
+                 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (2.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                     Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(1.875/(E^(4.*r^2)*
+                     r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                   (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta])) + 6.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                    Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*
+                     Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 + 
+                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                  (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                   1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                      Sin[4*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 2.1599999999999998*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2 - (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
+              (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
+                   Sin[3*theta])))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+            (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
+                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
+                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                       Sin[phi]*Sin[4*theta]))/4)) + 2*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
+                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
+                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
+                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
+             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-7*(1.*^-6*
+                (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
+                Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
+                   3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
+                  (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
+                       3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
+                    Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                     6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
+                    Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                    Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
+                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                     Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 
+                       6*Sin[4*theta] + 3*Sin[6*theta]))))))/
+             (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2)))/(Sqrt[2]*r))/2 + 
+      ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)/4)*Cos[phi]*Sin[2*theta])*
+            ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                  Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*(
+                -((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+                ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
+              ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*(
+                ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]*
+                    (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                     2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r^2 - 
+             (2.5*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*
+                  Sin[2*theta])/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^
+                         2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))))*((1.*^-12*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 
+             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))^2/(4*r^2) - 
+             (2.5*^-13*Sin[phi]^2*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r^2 + 
+             1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+              Cos[theta]*Sin[theta]*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 
+             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - 1.*^-6*r*
+                ((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
+                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                 ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                 (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
+                   (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
+                    r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                      (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
+                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
+                   (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
+                    r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                      (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
+                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*
+                   Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[phi]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
+                   Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*(-0.9375/
+                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
+                    0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                         (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-1/4*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                        Sin[theta]^2) + 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                        Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(1.875/
+                         (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                          2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Cos[theta]*Sin[theta]) + ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                         Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                          Sin[theta]))/4 + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                         (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                        (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
+                          Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
+                          Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/
+                     4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                          (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                          (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
+                          Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
+                        ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
+                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
+                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/
+                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                      Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))^2))/(2*r^2) + 
+             (5.*^-7*(Cos[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                    Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                     r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
+                    Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))) + Sin[phi]*
+                 ((-1.9999999999999998*^-18*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                    Cos[2*theta]*Csc[theta]^3*Sin[phi]*(0.000027*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                      (1 + 3*Cos[2*phi])*Cos[theta] + 18*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Cos[phi]*
+                        (-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                        (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
+                     ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                       Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                         (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
+                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
+                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                       Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
+                         Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                          (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
+                        Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
+                         Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]))*((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
+                      Cot[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) - 9.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[
+                       2*theta]))/(-Csc[theta]^3 + 1.*^-12*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
+                     5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^
+                       2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
+                      Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                       Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+                     2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                         2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
+                        Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                     6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                       1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                          (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
+                        Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                         Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                          Sin[phi]^2))/2))^2 + (1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
+                    Csc[theta]^5*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                      Cos[theta] + 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Cos[phi]*(-4*Cos[theta]*
+                          Cot[theta] + Csc[theta]) + 1.*^-6*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                        (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
+                     ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                       Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                         (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
+                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
+                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                       Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
+                         Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                          (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
+                        Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
+                         Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]))*Sin[2*theta]*(1.*^-12*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                   (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2*
+                      Csc[theta]^3 + 5.3999999999999996*^-17*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                      Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
+                      Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                       Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+                     2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                         2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
+                        Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                     6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                       1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                          (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
+                        Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                         Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                          Sin[phi]^2))/2))^2 + (2.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                    Cos[2*theta]*Csc[theta]*Sin[phi]*(-((-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*Cos[2*theta]) + 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                  (1.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                     r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
+                    Csc[theta]^2*Sin[phi]*Sin[2*theta]*(2.*^-6*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Cos[2*theta]^2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                       3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                         1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Cos[theta]*Sin[theta]))*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                  (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                     r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
+                    Cos[2*theta]*Csc[theta]*Sin[phi]*(1.*^-6*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                  (3.*^-12*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[phi]*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                        2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta]))) - (3.*^-6*r*
+                    (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                     Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta]))) - 
+                  (2.9999999999999994*^-18*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                       (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                         (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                         (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                          (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                        (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) + 1.25*^-13*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
+                         2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                          Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                         Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                         2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                          Sin[2*phi]*Sin[4*theta])))^2)))/r^2) - 
+           1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                 (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+             (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+            Cos[theta]*Sin[phi]*Sin[theta]*((-5.*^-7*Sin[phi]*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*((-5.*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-13*Sin[phi]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]*Sin[theta]*
+              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
+              ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+              Cos[theta]*Sin[phi]*Sin[theta]^2*((-1.*^-6*(-0.375/(E^(4.*r^2)*
+                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*Sin[
+                theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*(
+                ((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                          r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Sin[theta] + 
+                     Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
+                     Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r + 
+             (2.5*^-7*Sin[phi]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
+              ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                      (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                      (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
+                  1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + ((1.875/(E^(4.*r^2)*r^5) + 
+                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Sin[theta]^2*(3.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
+              ((3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
+                    Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+               (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))) + (2.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                     2)/2)*Sin[2*theta])/(r*(-2 + 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))) + (9.999999999999999*^-19*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                    (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                       (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                         (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                        16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 
+                         2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                         6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                         2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + 
+                      Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 
+                        3*Sin[6*theta])))))/(r*(-2 + 5.*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))^2) - (2.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+               (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 
+           1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+             (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
+            ((1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*Sin[
+                phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) + (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^
+                2*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
+                  Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
+              (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
+                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))*(-1.8*^-11*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2)))))/(r^2*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(1 - 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*(
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*
+                  Sin[2*theta])/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^
+                         2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
+                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))*((2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+             (2.5*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*((1.*^-12*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (2.5*^-13*Sin[phi]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*(2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]*
+                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                   Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                    Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                        Sin[phi]*Sin[4*theta]))/4)) + 
+                2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
+                       5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
+                       5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                          Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+                        Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                         Cos[phi]^2*Sin[4*theta]))))/4)))/
+              (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                 Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                  Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
+                9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                    2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                       2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (6.25*^-8*Sin[phi]*Sin[theta]*(
+                -8*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                   ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                      Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(-1.*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*
+                       Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                    2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[
+                          2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*
+                     (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 
+                  r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[theta]*(1.*^-6*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
+                     Sin[theta] + r*Cos[phi]*Sin[theta]^2*
+                     ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                         2)))) + 1.*^-12*r*(7.2*^-11*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                   ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                      Sin[theta]^2)/2) + 4*r*Sin[theta]*
+                   ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]*
+                     Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
+                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                     Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^
+                      2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
+                      Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                         Sin[4*theta]))))*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                         Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 
+                r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))*(2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                   ((-3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)]))/4 - (r*(39.375/(E^(4.*r^2)*
+                         r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                      (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)]))/4 + 
+                    3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                      (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                    9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)]))*Sin[theta] + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (8*Cos[phi]*Cos[theta]*Cos[2*theta] + 4.*^-6*r*
+                       (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]^
+                        2*Sin[theta] - 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*phi]*
+                       Cos[theta]^2*Sin[theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 
+                      0.000048*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2*
+                         Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r*
+                       (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                       Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*
+                       (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]*
+                       Sin[2*theta]*Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                       (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                         Sin[4*theta])) + 4*((1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + 
+                          Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*(Cos[theta] + 
+                          Cos[3*theta]) + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^
+                          2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[
+                          theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                          (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 
+                          8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[
+                          2*theta] + Sin[phi]^2)*Sin[theta])) + 7.5*^-7*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
+                  4*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                     ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                      2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                          (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*
+                          r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                          (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 
+                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
+                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
+                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                          1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]^2*Sin[theta]^
+                        2) + 0.000018*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)^2*Cos[phi]*Cos[theta]*Sin[theta]^
+                      2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + Sin[theta]*((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                         (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^3 - 
+                         (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                          E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r))/2 + 3*r*(5.625/
+                         (E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])) + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(-1 + 1.*^-6*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]^2 - 
+                        2*Cos[theta]*Sin[theta]*(1 + 2.5*^-7*r*(-6.5625/
+                          (E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                          (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                          (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                          Sin[2*theta]))) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[theta]*Sin[theta]^
+                        2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + r*((39.375/(E^(4.*r^2)*r^6) + 
+                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 
+                          8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                          (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                          (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*
+                          r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                          (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 
+                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
+                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
+                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*
+                          r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^
+                          2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 
+                          8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./
+                          E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*
+                          r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*
+                          (0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                          (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                          E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                          1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
+                          E^(4.*r^2)))/r)/4 + 3*(5.625/(E^(4.*r^2)*r^6) + 
+                          (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                          2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))) + (1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (Cos[phi]*(Cos[theta] + Cos[3*theta]) + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                         (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                          Sin[4*theta])))))))/(r^2*(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))^2) + (5.*^-7*((r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                   (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) + 5.*^-7*(18*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                  6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)))*Sin[phi]*Sin[2*theta]*
+                 (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta])*
+                 (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
+                    3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
+                   (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
+                        3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
+                     Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                      6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
+                     Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                     Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
+                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                      Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])*
+                     Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^
+                        2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + 
+                      Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 
+                        3*Sin[6*theta]))))))/(r^2*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))^2))))/(Sqrt[2]*r) - 
+        (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*
+              (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*
+                     Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r^2 - 
+            (2.5*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))*
+              ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))^2/(4*r^2) - 
+            (2.5*^-13*Sin[phi]^2*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r^2 + 
+            1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
+             Sin[theta]*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 
+            ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - 1.*^-6*r*(
+                (-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
+                   r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                     (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                   (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
+                   r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                     (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*
+                  Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[phi]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
+                  Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
+                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-1/4*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2) + 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                       Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta]) + ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+                        (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                        (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
+                          theta]))/4 + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
+                         Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/
+                    4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
+                          Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
+                       ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
+                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
+                 (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))^2))/(2*r^2) + 
+            (5.*^-7*(Cos[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))) + Sin[phi]*
+                ((-1.9999999999999998*^-18*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*
+                   Csc[theta]^3*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 
+                    18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 
+                      1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                       (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
+                    ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                        (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
+                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
+                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                       Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
+                        Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
+                       Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
+                        Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]))*((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[2*theta]*Cot[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - 9.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[2*theta]))/(-Csc[theta]^3 + 1.*^-12*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
+                    5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^
+                      2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
+                     Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                       Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*
+                       (-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                        2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
+                       Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                    6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                      1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
+                       Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                        Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                          Sin[phi]^2))/2))^2 + (1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
+                   Csc[theta]^5*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 
+                    18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 
+                      1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                       (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
+                    ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                        (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
+                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
+                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                       Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
+                        Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
+                       Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
+                        Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]))*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2*
+                     Csc[theta]^3 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 
+                    4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                      Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                        2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
+                       Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                    6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                      1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
+                       Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                        Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                          Sin[phi]^2))/2))^2 + (2.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                   Cos[2*theta]*Csc[theta]*Sin[phi]*(-((-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Cos[2*theta]) + 
+                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[phi]*
+                   Sin[2*theta]*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]^2 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                      3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                        1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta]))*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4))*Cos[2*theta]*Csc[theta]*Sin[phi]*
+                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (3.*^-12*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                       2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (3.*^-6*r*
+                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (2.9999999999999994*^-18*
+                   r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                      (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                         (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 
+                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                         (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                       (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
+                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))^2)))/r^2) + 
+          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+           Cos[phi]*Cos[2*theta]*((-5.*^-7*Sin[phi]*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(r*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Cos[theta]*Sin[phi]*Sin[theta]*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
+             ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
+             Sin[phi]*Sin[theta]^2*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 
+            (2.5*^-7*Sin[phi]*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                 Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (2.5*^-7*Sin[phi]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
+             ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[theta]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
+                 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + ((1.875/(E^(4.*r^2)*r^5) + 
+                 (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
+                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
+                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
+             ((3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
+                   Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + (2.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/
+                  2)*Sin[2*theta])/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + (9.999999999999999*^-19*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                   (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                        (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                       16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*
+                       (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                        6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                        2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                     Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^
+                       2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*
+                      (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2) - (2.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                       6*Sin[4*theta] - 3*Sin[6*theta])))))/(r*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+              (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + 
+          r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+           ((1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]*Sin[theta]*
+              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + 
+            (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+              Cos[theta]*Sin[phi]*Sin[theta]^2*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
+                 Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+               1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
+             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + (2.5*^-7*Sin[phi]*Sin[theta]*
+              (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*(-1.8*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2)))))/(r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))))/
+             (r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
+              (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
+                   Sin[3*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+            (2.5*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-13*Sin[phi]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*(2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 
+               0.000036*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
+                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                       Sin[phi]*Sin[4*theta]))/4)) + 2*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
+                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
+                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
+                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
+             (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (6.25*^-8*Sin[phi]*Sin[theta]*
+              (-8*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                  ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                     Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                   2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                      (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                   7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[2*theta]) + r*Sin[theta]*
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[theta]*(1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
+                    Sin[theta] + r*Cos[phi]*Sin[theta]^2*
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                        2)))) + 1.*^-12*r*(7.2*^-11*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                  ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                     Sin[theta]^2)/2) + 4*r*Sin[theta]*
+                  ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                   3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                      Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (2*r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))))*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*
+                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^
+                        2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
+                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                        Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])))) + r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*((-3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)]))/4 - (r*(39.375/(E^(4.*r^2)*r^6) + 
+                      (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*(2 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)]))/4 + 3*r*(5.625/(E^(4.*r^2)*r^6) + 
+                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                    (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                     Cos[2*(phi + theta)]) + 9*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)]))*Sin[theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(8*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]^
+                       2*Sin[theta] - 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*phi]*
+                      Cos[theta]^2*Sin[theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 
+                     0.000048*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2*
+                        Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r*
+                      (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                      Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*
+                      (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]*
+                      Sin[2*theta]*Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta])) + 4*((1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2*
+                          Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                       2*(Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^
+                          2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[
+                          theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                          (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[
+                          2*theta] + Sin[phi]^2)*Sin[theta])) + 7.5*^-7*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))) + 4*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                    ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                     2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^3 - 
+                          (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
+                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
+                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                          E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]^2*Sin[theta]^
+                       2) + 0.000018*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)^2*Cos[phi]*Cos[theta]*Sin[theta]^
+                     2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
+                     (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
+                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/2 + 
+                     3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])) + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(-1 + 1.*^-6*r*
+                      (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]^2 - 2*Cos[theta]*Sin[theta]*(1 + 
+                         2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[theta]*Sin[theta]^
+                       2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + r*((39.375/(E^(4.*r^2)*r^6) + 
+                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                          (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*
+                          r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                          (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 
+                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
+                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
+                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                          1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
+                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/4 + 3*(5.625/(E^(4.*r^2)*
+                          r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                          2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))) + (1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Cos[phi]*(Cos[theta] + Cos[3*theta]) + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                          Sin[4*theta])))))))/(r^2*(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2) + (5.*^-7*((r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + 5.*^-7*(18*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)))*Sin[phi]*Sin[2*theta]*
+                (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*
+                (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
+                   3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
+                  (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
+                       3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
+                    Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                     6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
+                    Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                    Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
+                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                     Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 
+                       6*Sin[4*theta] + 3*Sin[6*theta]))))))/
+             (r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2)))/(Sqrt[2]*r))/2))/(Sqrt[2]*r) - 
+   ((((-I)*Csc[theta]*(-1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+            (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*
+                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*
+           Sin[theta]*((-1.*^-6*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + 
+            (1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + 5.*^-7*
+             ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*
+             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))*
+             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]^2*
+             ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
+             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 
+            5.*^-7*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + 
+              r*((-2.5*^-7*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                   (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                   1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                   1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+                (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                  (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                    Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/
+                 (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                  (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                        Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 
+                      4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                         Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
+                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                         Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))^2)) + 
+            5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
+                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
+                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                      Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                    Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2)) + r^2*Sin[theta]^2*
+           (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+             Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (5.*^-13*Sin[phi]*(3.6*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(8 - 2.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]*
+              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (2.5*^-13*Sin[phi]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (2.5*^-7*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
+             ((2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                  (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.5*^-7*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                 (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                 (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                    (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*(1.875/(E^(4.*r^2)*
+                     r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                 ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
+                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
+                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2) + 
+            (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
+                 Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
+                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Sin[theta] - 3*Sin[3*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
+                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Sin[theta] - 3*Sin[3*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                   Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
+                   8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                     Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                      3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                     Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
+                        3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*
+                     Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                        (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                        Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                       (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                          17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                          5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                          9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
+                      4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))/r) - 
+          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           ((5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*(3.6*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
+                 (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
+                 (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + 
+                   Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
+                    Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                  Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
+                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
+               8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*
+                    Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]*
+                       Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/
+             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*
+                   r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*((1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+            (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (1.*^-6*(-2.*^-12*
+                (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
+                   3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + Cos[phi]*(-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 - 
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*(2*((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                      Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
+                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
+                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 4.3199999999999997*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(7.200000000000001*^-11*
+                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-6*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta]^3 + (((105*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                      (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*(4*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) - 
+                 5.*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                    Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
+                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
+                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-12*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2*
+                    Sin[theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*(4*Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^
+                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                 3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                    (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(0.000012*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 12*((15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^6)*Sin[phi]^2*Sin[theta]^2*
+                    (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.5*^-7*((-21*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
+                   ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^
+                       2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^
+                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                 Cos[phi]*(-4*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                      Cos[2*theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                        (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
+                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                       Sin[2*theta])/4) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                    (2*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                      Cos[theta]*Sin[theta]^3 + 3*((15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                      Sin[4*theta]) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-2*((-30*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                       (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*
+                      Cos[2*theta]^2 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                      (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                       3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[4*theta]))))))/
+             (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2 + (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
+                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
+                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                       Sin[phi]*Sin[4*theta]))/4)) + 2*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
+                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
+                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
+                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
+             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))) + (2.5*^-7*(-2.*^-6*
+                (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 
+                 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)*
+                (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                    Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                       2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
+                     4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                       Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  2)))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2))))/(Sqrt[2]*r) + 
+       (1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+          ((-1.*^-6*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
+           (1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+              (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
+           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*
+            ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+             (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))*
+            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]^2*
+            ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r))/2)*Sin[theta]^2)*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*(Cos[theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
+            ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[theta]^2*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*(
+                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[theta]^2*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 
+           5.*^-7*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             r*((-2.5*^-7*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                  (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                  (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                     (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
+                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
+                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (1 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                     ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 
+                     4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2)) + 
+           5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+             (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                   Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                 Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                   Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                    2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                  Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2)) - 
+         1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
+          Sin[theta]^2*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - (5.*^-13*Sin[phi]*
+             (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                -6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + (2.5*^-13*Sin[phi]*
+             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r + 
+           (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 
+           (2.5*^-13*Sin[phi]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r + 
+           (2.5*^-7*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
+            ((2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                 (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (2.5*^-7*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                  (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                   E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                    (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                    (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                     E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                  1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+               Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*(1.875/(E^(4.*r^2)*
+                    r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                  (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                  (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                     (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]^2*Cos[2*theta]*(
+                3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-18*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
+                       r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                      Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                  1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
+                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                       Sin[4*theta])))))/(-2 + 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2) + 
+           (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
+                Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
+                 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])*
+                      Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*
+                      Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2))/r) + 
+         r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+          ((5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]*
+             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
+                (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
+                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
+                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*
+                   Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                 Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
+                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
+              8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + 
+                  Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2*
+                   Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*
+                   (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2*
+                     Sin[4*theta])))))/(r*(-Csc[theta]^3 + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
+                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
+                 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - (2.5*^-13*Sin[phi]^2*
+             Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+              1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*(
+                -1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                  Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 
+                  2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                    Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                   2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                 Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                  (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
+             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 
+           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+           (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 
+           (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                  (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]))/
+                 4 - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                     Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+               (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 4.3199999999999997*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+               (7.200000000000001*^-11*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((105*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)*(4*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) - 
+                5.*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2*
+                   Sin[theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)*(4*Sin[phi]^2*Sin[theta]^
+                       2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
+                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 12*((15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2*
+                   Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.5*^-7*((-21*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
+                  ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^
+                      2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*
+                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                Cos[phi]*(-4*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Cos[2*theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                      Sin[2*theta])/4) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*Sin[theta]^3 + 
+                    3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                     Sin[4*theta]) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-2*((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*
+                     Cos[2*theta]^2 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                     (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[4*theta]))))))/
+            (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))^2 + (6.25*^-14*Csc[theta]*
+             Sin[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[
+                phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]*
+                 Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 
+                2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                  Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                      Sin[phi]*Sin[4*theta]))/4)) + 
+              2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                 Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
+                     5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
+                     5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
+                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
+                 2))) + (2.5*^-7*(-2.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*Cos[
+                2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]*
+                 Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
+                0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Sin[2*theta]^2)*(-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                -0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                 Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                   Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
+                        3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^
+                        2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                 2)))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2)))/(Sqrt[2]*r))/2 + 
+     ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
+             (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+             Sin[2*theta])*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + 1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]*
+             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 
+            (2.5*^-7*Sin[phi]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*(-((Csc[theta]*(-2 + 
+                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+            (2.5*^-13*Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))*
+              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*Sin[phi]*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 
+            (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r^2 + 
+            (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r^2 + 
+            (2.5*^-7*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r^2 - 
+            (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-6*Csc[theta]*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                 (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+                 (Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta])*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-6*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
+                    (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*
+                   Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*Cos[phi]*(2.*^-6*
+                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
+                    r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                      (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
+                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                   Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/
+                  (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                   (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                    0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                         (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                          2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                         Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                          Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                         (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                        (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                          Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                          Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                        Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                        Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/
+                         (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*Cos[phi]^3*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
+                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                         (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                          Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
+                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))^2)))/r^2 + 
+            (5.*^-7*Sin[phi]*((2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^4*
+                 (0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                   Csc[theta]^2*Sin[phi]^2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
+                      Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/8 + 
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Csc[theta]^4*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
+                          6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*
+                       Sin[phi]^2) - Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + 
+                        Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2)) + 
+                  9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
+                       Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(3*Cos[phi]^2*
+                       Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*
+                       Sin[phi]^2)) - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Csc[theta]^4*
+                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                       4*Cos[4*theta]*Sin[phi]^2) + 2*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^
+                       2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
+                       2*Cot[theta]*Sin[phi]^2) - 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      (3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + 
+                       (-1 + 3*Cot[theta]^2)*Sin[phi]^2)))/4)*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2*
+                   Csc[theta]^3 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
+                   Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                    Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*
+                     Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                     Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                  6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                       Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                         2))/2))^2 + (2.*^-6*(0.375/(E^(4.*r^2)*r^4) + 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]^2*Sin[2*theta]*
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Csc[theta]*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
+                 Csc[theta]^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cot[theta]*
+                 Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
+                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Sin[theta] - 3*Sin[3*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta])/
+                   2 - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
+                   Sin[theta] - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*r*
+                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*r*
+                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                   Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
+                   8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                     Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                      3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                     Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
+                        3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*
+                     Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                        (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                        Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                       (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                          17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                          5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                          9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
+                      4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))/r^2) - 
+          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+           Cos[theta]*Sin[phi]*Sin[theta]*
+           (((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*
+                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(2*r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+            5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))) + 
+            5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))) + 
+            (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                5)*Cos[phi]*Cos[2*theta]*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
+             ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
+             Sin[theta]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*
+              ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                    (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
+                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
+                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
+                (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
+                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
+                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2) + 
+            5.*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
+                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(r*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+              (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
+                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (6.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
+                Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + (2.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(r*
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - (3.9999999999999995*^-18*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
+                 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])*
+                      Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*
+                      Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  8))/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))) - 
+          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           (-1/4*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))^2/(r^2*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+            (1.*^-6*r*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
+                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))) + (1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
+                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                   Sin[phi]^2 - ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 
+                  7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                   Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(6*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[2*theta]^2) + 1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                      (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 - 
+                    0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                6.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) - 6.*^-6*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + ((3*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                     (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[4*theta])))/(2*r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+            (1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + 
+            (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+              Cos[theta]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Csc[theta]*
+              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*(0.000072*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]^2 + Cot[theta])*
+                Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
+                 (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
+                 (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + 
+                   Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
+                    Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                  Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
+                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
+               8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*
+                    Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]*
+                       Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/
+             (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (5.*^-7*(4*Cos[phi]*Cos[2*theta] + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*
+              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(r^2*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*
+                   r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*
+                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+            (2.5*^-13*Sin[phi]^2*Sin[theta]*(-1.8*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*
+              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
+                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
+                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                       Sin[phi]*Sin[4*theta]))/4)) + 2*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
+                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
+                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
+                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
+             (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))) + (5.*^-7*(-1.*^-6*
+                (18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
+                 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)))*Cos[phi]*Cos[2*theta]*
+                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 
+                 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)*
+                (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*
+                (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                    Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                       2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
+                     4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                       Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  2)))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2))))/(Sqrt[2]*r) - 
+       (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
+          Sin[theta]^2*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))*((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + 1.5*^-12*
+            ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+              r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]*
+            ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) + 
+           (2.5*^-7*Sin[phi]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+           (2.5*^-13*Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))*
+             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 
+           2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+             (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*Sin[phi]*
+            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 
+           (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r^2 + 
+           (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r^2 + 
+           (2.5*^-7*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r^2 - 
+           (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-6*Csc[theta]*
+                  (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+                (Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
+                   (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]*
+                  Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[phi]*
+                  (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                   (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
+                   r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                     (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/
+                 (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                  (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+                        (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                        (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
+                          theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                         Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*
+                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + 
+                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
+                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                         Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))^2)))/r^2 + 
+           (5.*^-7*Sin[phi]*((2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^4*
+                (0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Csc[theta]^2*Sin[phi]^2 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
+                     Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/8 + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Csc[theta]^4*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
+                         6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*
+                      Sin[phi]^2) - Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + 
+                       Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2)) + 
+                 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
+                      Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3*Cos[phi]^2*
+                      Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*
+                      Sin[phi]^2)) - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Csc[theta]^4*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + 2*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Csc[theta]^2*(Cos[phi]^2*
+                       (Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]*
+                       Sin[phi]^2) - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + 
+                      (-1 + 3*Cot[theta]^2)*Sin[phi]^2)))/4)*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+               (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                   2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                   Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                     2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
+                    Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*(Cos[phi]^2*
+                      Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                      Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*Cos[theta]*
+                       Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 + 
+              (2.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]^2*Sin[2*theta]*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Cot[theta]*Csc[theta]*(1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Csc[theta]*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
+                Csc[theta]^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cot[theta]*
+                Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta])/
+                  2 - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (2 + 3*Cos[2*theta])*Sin[theta] - 3*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                     3*Sin[3*theta])) + 4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                   3*Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*r*
+                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*r*
+                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
+                 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])*
+                      Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*
+                      Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2))/r^2) + 
+         1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+          (((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])))))/(2*r*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                   r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+             (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))) + 
+           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+             (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))) + 
+           (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))*((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 2.5*^-13*r*
+            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+             (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*
+            ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
+            ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+              r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]*
+            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) + 
+           (2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 
+           (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 
+           5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*((3*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                   (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                   (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*(
+                -1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(9*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                    (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                  (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]^
+                2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
+              (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
+                3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-18*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
+                       r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
+                      Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
+                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                  1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
+                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                       Sin[4*theta])))))/(-2 + 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2) + 
+           5.*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+             (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+             (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+             (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+             (6.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(9.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Cos[2*theta]*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
+              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 
+             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Sin[phi]^2*Sin[2*theta]*(Csc[theta]^2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - (3.9999999999999995*^-18*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*(
+                -0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                 Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
+                18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                   Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                    2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                  Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                 8))/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2))) + 
+         r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+          (-1/4*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))^2/
+             (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+           (1.*^-6*r*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                  (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
+                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              ((-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                  Sin[phi]^2 - ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 
+                 7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(6*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
+                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
+                Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 - 
+                   0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+               6.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) - 6.*^-6*(-0.9375/(E^(4.*r^2)*
+                   r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                 (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + ((3*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
+                    (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta])))/
+            (2*r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
+           (1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*
+             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta])))/
+            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
+           (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
+             Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
+           (1.25*^-13*Csc[theta]*(4*Cos[phi]*Cos[2*theta] + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))*(0.000072*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
+                (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
+                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
+                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*
+                   Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                 Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
+                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
+              8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + 
+                  Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2*
+                   Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*
+                   (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2*
+                     Sin[4*theta])))))/(r^2*(-Csc[theta]^3 + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
+                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
+                 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 
+           (5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])))))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^
+                2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+              3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 
+           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))))/
+            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+           (2.5*^-13*Sin[phi]^2*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+              1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*(
+                -1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                  Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 
+                  2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                    Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                   2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                 Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                  (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
+             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r^2*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]*
+             Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[
+                phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]*
+                 Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 
+                2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                  Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                      Sin[phi]*Sin[4*theta]))/4)) + 
+              2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                 Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
+                     5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
+                     5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))))/4)))/(r^2*(-Csc[theta]^3 + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
+                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
+                 2))) + (5.*^-7*(-1.*^-6*(18*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)))*Cos[phi]*
+               Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]*
+                 Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
+                0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Sin[2*theta]^2)*(r*(1.875/(E^(4.*r^2)*r^5) + 
+                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(
+                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
+                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))*(-0.000216*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                 Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                   Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
+                        3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^
+                        2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                 2)))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2)))/(Sqrt[2]*r))/2)/(Sqrt[2]*r))/2 + 
+ (((-I)*Csc[theta]*
+     (((r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+           ((-1.*^-12*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]))))/((4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*
+              (-1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                   1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                      Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                  Cos[phi]*(Cos[theta] + Cos[3*theta]) + 0.000018*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
+                  Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                  (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3)*Sin[theta]*(-1 + 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                 3.*^-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 
+                 3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                  Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                    Sin[4*theta]) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                  Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(2*Sin[phi]^2*
+                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))*
+                (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 2.1599999999999998*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2 - (5.*^-13*Sin[phi]*Sin[theta]*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - (1.25*^-13*Sin[phi]*Sin[theta]*
+              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + 1.*^-6*r*
+           (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+           Cos[phi]*Cos[2*theta]*((-5.*^-13*r*Sin[phi]*Sin[theta]*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r*Sin[phi]*Sin[theta]*
+             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
+             Sin[theta]*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*Sin[phi]*
+             Sin[theta]*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2)) - 
+          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*((-5.*^-13*Sin[phi]^2*Sin[theta]*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*
+             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))^2 - 2.5*^-13*Sin[phi]^2*
+             Sin[theta]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 
+            5.*^-7*((-1.*^-6*(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
+                (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                  (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[phi]^2*Sin[theta]*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)^2*Cos[theta]*Sin[phi]^2*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2)))/(Sqrt[2]*r) - 
+        (I*Csc[theta]*(-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
+            ((-1.*^-12*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))))/((4 - 1.*^-12*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 2.1599999999999998*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+               (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 4.3199999999999997*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*(
+                -1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                  2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                    1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                       Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + 
+                      Cos[phi]^2*Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                     2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                  9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                  72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                  4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)^2*Cos[phi]*(Cos[theta] + 
+                    Cos[3*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                   Cos[phi]*(Cos[theta] + Cos[3*theta]) + 0.000018*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)^2*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                   (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3)*Sin[theta]*(-1 + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                    Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
+                     9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                  3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)^2*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[theta]*(Sin[phi]^2*
+                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3.*^-12*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                  3.*^-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(Sin[phi]^2*
+                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-12*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                   Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                     Sin[4*theta]) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)^2*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                  2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                   Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(2*Sin[phi]^2*
+                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))*
+                 (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 2.1599999999999998*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 2.1599999999999998*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2 - (5.*^-13*Sin[phi]*Sin[theta]*(
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) - (1.25*^-13*Sin[phi]*Sin[theta]*(
+                4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                (-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+             (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+              r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]*
+            ((-5.*^-13*r*Sin[phi]*Sin[theta]*(
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                (-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) - 2.5*^-13*r*Sin[phi]*Sin[theta]*
+              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
+              Sin[theta]*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*Sin[phi]*
+              Sin[theta]*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                 Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/
+                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2)) + r^2*Sin[theta]^2*
+            (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)/4)*Cos[phi]*Sin[2*theta])*
+            ((-5.*^-13*Sin[phi]^2*Sin[theta]*(
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                (-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) - 2.5*^-13*
+              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))^2 - 2.5*^-13*Sin[phi]^2*
+              Sin[theta]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 
+             5.*^-7*((-1.*^-6*(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
+                 (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))))/(Sqrt[2]*r))/2 + 
+      ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)/4)*Cos[phi]*Sin[2*theta])*
+            ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                (1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
+                  Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-13*Sin[phi]^2*(
+                ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]*
+                    (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                     2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r + 
+             (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 
+             (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r - 
+             (2.5*^-13*Sin[phi]^2*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/r + 
+             (5.*^-7*((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                     (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                    Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                     (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                    Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/2) - 1.*^-6*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                     ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                       (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                     ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*
+                  Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[phi]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
+                  Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*
+                    ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
+                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-1/4*(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2) + 12*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 
+                     2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                        Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                         (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                        Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
+                          theta]))/4 + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
+                         Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/
+                    4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
+                          Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
+                       (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                          (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
+                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
+                 (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))^2))/r + 
+             (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
+                 ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                    Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cot[theta]*Sin[phi]*Sin[2*theta]*
+                    (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                   (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[
+                          2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                     ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                        2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta]))) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
+                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
+                    ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                       (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
+                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                          r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                         (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                         (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                          (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                        (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                      (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) + 1.25*^-13*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
+                         2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                          Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                         Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                         2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                          Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                        Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
+                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                         2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
+                    2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                    Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                    (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                        Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                         Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
+                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                         2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                          (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
+                    2)))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+             (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+              r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]*
+            ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) - (2.5*^-13*Sin[phi]*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
+              ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
+                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                 Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) + 2.5*^-7*Sin[phi]*
+              Sin[theta]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
+              ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                      (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
+                  1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                   Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
+              ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
+                    Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[theta]^2)/2))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
+                    (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                       (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                         (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                        16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 
+                         2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                         6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                         2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*
+                       Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + 
+                      Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 
+                        3*Sin[6*theta])))))/(-2 + 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 
+           1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+             (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
+            ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2)))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+               (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 4.3199999999999997*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(
+                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
+                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
+                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                      (Cos[phi]^2*Sin[4*theta])/2))))*(
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
+                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))*((-1.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+             (5.*^-7*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta])) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
+                (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 2.1599999999999998*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (1.25*^-13*Sin[phi]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                (-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
+                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]*
+                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                   Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                    Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
+                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                        Sin[phi]*Sin[4*theta]))/4)) + 
+                2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
+                       5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
+                       5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
+                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
+                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                          Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
+                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
+                        Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                         Cos[phi]^2*Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                 Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                  Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
+                9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                    2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+                6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                     Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                       2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*(
+                (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 - 5.3999999999999996*^-17*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))*(-3.6000000000000005*^-11*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                   Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2*Cos[phi]^2*Cos[2*theta] + 
+                      Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                      Sin[theta]^2)/2) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                   (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                    (r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                      Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   (-1.*^-6*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                    5.*^-7*r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(Cos[phi]^2*
+                       Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 7.5*^-7*r*
+                     ((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                    2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[
+                          2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*
+                     (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 
+                  r*Sin[theta]*(((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2 + 7.5*^-7*
+                     (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[theta]*(2.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                    r*Cos[phi]*Sin[theta]^2*(((105*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                        (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
+                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 
+                      7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta] + 
+                      3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])) + 2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(Sin[phi]^2*
+                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + 
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                         2))) + 6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
+                     Sin[theta] + r*Cos[phi]*Sin[theta]^2*
+                     ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                         2)))) + 1.25*^-13*(7.2*^-11*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                   ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                      Sin[theta]^2)/2) + 4*r*Sin[theta]*
+                   ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
+                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]*
+                     Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
+                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                     Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
+                  0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^
+                      2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
+                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
+                      Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
+                          4*theta]))))*(-3.75*^-7*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 - 2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                         Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))))/
+              (r*(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))^2) + (2.5*^-7*(1.*^-6*
+                 (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
+                 Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                   (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
+                    3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
+                   (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
+                        3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
+                     Sin[theta]) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                      6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
+                     Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                     Sin[theta]^4 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
+                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                      Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])*
+                     Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^
+                        2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + 
+                      Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 
+                        3*Sin[6*theta]))))))/(r*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))^2))))/(Sqrt[2]*r) - 
+        (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]^2*
+              (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*
+                     Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (2.5*^-13*Sin[phi]^2*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (5.*^-7*((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                      (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[phi]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-1/4*(((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2) + 
+                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                         Sin[theta]))/4 + 2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))/4 + (-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(4*((6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
+                      Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
+                         Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
+                      (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
+                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))/r + 
+            (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
+                ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
+                   Sin[2*theta])/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                   Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[2*theta]*Sin[phi]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                   Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                  (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
+                       2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                        Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
+                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
+                      (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                         (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 
+                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                        (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
+                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
+                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                         (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                       (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
+                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
+                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                         Sin[2*phi]*Sin[4*theta])))^2 + 
+                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
+                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                       Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
+                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                      9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
+                   Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
+                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
+                       Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                        Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
+                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
+                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                      9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
+                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
+                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)))/
+             r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+            (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                 E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*
+                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+           ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - (2.5*^-13*Sin[phi]*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
+                   Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 2.5*^-7*Sin[phi]*
+             Sin[theta]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
+             ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[theta]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
+                 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                  Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
+             ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
+                   Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/
+                  2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
+                   (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                        (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
+                       16*Cos[phi]*Sin[theta]))/2 - 0.000054*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*
+                       (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
+                        6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
+                        2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
+                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
+                     Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^
+                       2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*
+                      (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
+                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
+                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
+                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
+                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
+                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
+                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
+                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
+                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + 
+          r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+           ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2)))))/(r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*
+              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
+                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                      2))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
+              (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
+                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
+                   Sin[3*theta])))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+            (5.*^-7*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (1.25*^-13*Sin[phi]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
+                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
+                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                       Sin[phi]*Sin[4*theta]))/4)) + 2*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
+                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
+                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
+                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
+             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*
+              ((1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(-3.6000000000000005*^-11*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                  Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(2*Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                     Sin[theta]^2)/2) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                   (r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]^2*Sin[theta]^2)/
+                    2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (-1.*^-6*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
+                     Sin[phi]^2)*Sin[theta] - 5.*^-7*r*((105*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(Cos[phi]^2*
+                      Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 7.5*^-7*r*
+                    ((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
+                    (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                     Cos[2*(phi + theta)])*Sin[2*theta]) + 2.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
+                   2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                      (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
+                   7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[2*theta]) + r*Sin[theta]*
+                  (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2 + 7.5*^-7*
+                    (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta] + 
+                   3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[theta]*(2.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
+                   r*Cos[phi]*Sin[theta]^2*(((105*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 
+                     7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                      Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])) + 2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(Sin[phi]^2*Sin[2*theta] + 
+                     (Cos[phi]^2*Sin[4*theta])/2) + 
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                        2))) + 6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
+                    Sin[theta] + r*Cos[phi]*Sin[theta]^2*
+                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
+                        2)))) + 1.25*^-13*(7.2*^-11*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
+                  ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
+                     Sin[theta]^2)/2) + 4*r*Sin[theta]*
+                  ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]*
+                    Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                   3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^
+                     2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
+                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
+                         4*theta]))))*(-3.75*^-7*((-3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                        Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))))/
+             (r*(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2) + (2.5*^-7*(1.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
+                Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
+                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
+                   3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
+                  (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
+                       3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
+                    Sin[theta]) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[theta]*(2 - 6*Cos[2*phi] + 
+                     3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
+                     3*Cos[2*(phi + theta)])*Sin[phi]*Sin[theta]^3 - 
+                   2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Sin[2*phi]*Sin[theta]^4 + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]*
+                    (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 
+                       2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + 
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2*
+                      Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 
+                       6*Sin[4*theta] + 3*Sin[6*theta]))))))/
+             (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2)))/(Sqrt[2]*r))/2))/(Sqrt[2]*r) + 
+   (((r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+          ((-1.*^-12*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])))^2)/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^
+                2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+              1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))^2 - 
+           (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]))/
+                 4 - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                  Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
+                     Sin[phi]^2*Sin[4*theta]))/4 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 4*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+               (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 4.3199999999999997*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
+               (7.200000000000001*^-11*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3)*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + (((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
+                   Cos[2*theta]^2 - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                   Cos[phi]*Cos[2*theta]^2 - ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[2*theta] + 1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                         1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                        (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                         E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                     Cos[theta]*Sin[theta]^3 + 3*((3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3)*Sin[4*theta]) + 2.*^-12*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[4*theta])) - 5.*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2 + 
+                  (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                    (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/
+                   2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)^2*Cos[phi]*(2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                   Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                    Sin[phi]^2*Sin[4*theta])) + 3.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 12*((3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2*
+                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - 2.5*^-7*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)^2*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^
+                      2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                   Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                    Sin[phi]^2*Sin[4*theta])))))/
+            (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))^2 - (5.*^-13*Sin[phi]^2*
+             Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                 Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                  Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                   Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(2*Sin[theta]*(-1 + 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+              (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
+           (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
+              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+              (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - 
+         1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
+          Sin[theta]^2*((-5.*^-13*Sin[phi]*(3.6*^-11*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
+           2.5*^-13*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
+            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
+            ((-2.5*^-7*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                    (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                    (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                     E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                  0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                    (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                    (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                     E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                  1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+               Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3) + 
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                  (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (Cos[theta] + Cos[3*theta]) + 
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                 (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+             (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]^2*Cos[2*theta]*(
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)^2*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                  (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
+                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+              (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2)) + 
+         1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+          ((-5.*^-13*r*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
+           2.5*^-13*r*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]^2*
+            Sin[theta]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*
+            ((-2.5*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*((21*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                    (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                    (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                     E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                  0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                    (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                    (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                     E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                  1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+               Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                  (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(
+                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3) + 
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                  (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                  (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                      (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
+                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+              (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2)))/(Sqrt[2]*r) - 
+       (I*Csc[theta]*(-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           ((-1.*^-12*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
+                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])))^2)/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                Sin[theta]^2 - 4.3199999999999997*^-16*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2 - (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
+                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
+                 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + Cos[phi]*(-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 - 
+                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Sin[phi]^2*(2*((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                      Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
+                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
+                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 4.3199999999999997*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))*(7.200000000000001*^-11*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3)*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + (((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                         1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                        (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                         E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                     (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                       Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
+                    Cos[2*theta]^2 - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]^2 - 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                    Sin[2*theta] + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                    (2*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                          1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
+                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                        r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                          E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                         0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*Sin[theta]^3 + 
+                     3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3)*Sin[4*theta]) + 2.*^-12*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                    (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
+                      Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      Sin[4*theta])) - 5.*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                    Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
+                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
+                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2 + 
+                   (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                         1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                        (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                         E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                     (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/
+                    2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)^2*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^
+                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
+                 3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(12*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(0.000012*((-3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                    Sin[theta]^3 + 12*((3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*Sin[phi]^2*
+                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.5*^-7*
+                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)^2*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3) - ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
+                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                    (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
+                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                      Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^
+                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+             (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2 - (5.*^-13*Sin[phi]^2*Sin[theta]*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - 
+            (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + r^2*Sin[theta]^2*
+           (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+             Sin[2*theta])*((-5.*^-13*Sin[phi]*(3.6*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*Sin[phi]*
+             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
+             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
+             ((-2.5*^-7*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                 (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                 (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                  (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)^2*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2)) - 
+          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+           Cos[theta]*Sin[phi]*Sin[theta]*
+           ((-5.*^-13*r*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]^2*
+             Sin[theta]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*
+             ((-2.5*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                 (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
+                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                 (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
+                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
+                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
+                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
+                Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
+                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
+                Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
+                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
+                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
+                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2))))/(Sqrt[2]*r))/2 + 
+     ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
+             (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+              (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+             Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (2.5*^-7*Sin[phi]*(1.*^-12*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*((-2.5*^-7*
+                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+            (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/
+                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*
+              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r + 
+            (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/r - 
+            (5.*^-7*Sin[phi]*((-1.*^-6*(((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]*
+                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[phi]*
+                 (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2))*(1.*^-12*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-6*Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
+                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
+                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                          theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
+                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                       Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 
+                     4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
+                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))/r + 
+            (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
+                 Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
+                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Sin[theta] - 3*Sin[3*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
+                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Sin[theta] - 3*Sin[3*theta]))))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+               (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                   Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                     Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                      3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                     Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
+                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
+                        3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*
+                     Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                        (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                        Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                       (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                         (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                          17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                          5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                          9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
+                      4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                   Sin[theta]^2 + 1.0799999999999999*^-16*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                       Sin[2*phi]*Sin[4*theta])))^2))/r) - 
+          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+           Cos[theta]*Sin[phi]*Sin[theta]*
+           ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
+                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta]))) - 5.*^-7*
+             ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 
+            5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) + 
+            (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*
+                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+            2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
+             Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))) - 
+            5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
+                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
+                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*
+                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2) + 
+            5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
+                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+              (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
+                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
+                      Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                    Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2)) - 
+          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
+                4)/2)*Sin[phi]*Sin[theta]^2*
+           (-1/2*(1.*^-6*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+                (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta]))) - 1.*^-6*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+                (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                     ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
+                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
+                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
+                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
+                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
+                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
+                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
+                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
+                  Sin[phi]^2*Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + (-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2 - 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
+                     Sin[2*theta])/4 - 7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(6*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                    Sin[2*theta]^2) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                  Sin[theta]^2*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta] + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta] - 0.000012*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                      Sin[theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(1 + 3.*^-6*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]))/2) - 6.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])) - 6.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])) + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
+                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
+                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                      Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]*(-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                    Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) + 
+            (5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*(3.6*^-11*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
+                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
+                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
+                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
+               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
+                 (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
+                 (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                    Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + 
+                   Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
+                    Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                  Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
+                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
+               8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*
+                    Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]*
+                       Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/
+             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 
+               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+              ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                Sin[theta]^2 - 1.0799999999999999*^-16*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*
+              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
+                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
+               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
+                   Cos[phi]^2*Sin[4*theta])) + 3*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                     4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*
+                   r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
+                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))*((1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
+                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))))/
+             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+            (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 5.3999999999999996*^-17*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
+                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
+                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
+                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                       Sin[phi]*Sin[4*theta]))/4)) + 2*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
+                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
+                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
+                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
+                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
+                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
+                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
+                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
+             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
+                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
+                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
+                      2))/2))) + (2.5*^-7*(-2.*^-6*
+                (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
+                Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + 
+                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                    2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 
+                 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                  Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)*
+                (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 - 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]))) + 2.5*^-13*(-4*Cos[phi]*Cos[2*theta] - 
+                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-0.000432*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 + 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[2*theta]) + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) - 2*Cos[phi]^2*
+                    Sin[4*theta]) - 4*(((1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
+                    4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                       2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
+                     4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                      (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                      Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
+                    4))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+               2))))/(Sqrt[2]*r) - 
+       (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
+                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
+               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
+          Sin[theta]^2*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
+                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*
+             (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+           (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r + 
+           (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 
+           (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]))))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r + 
+           (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
+                (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
+                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
+                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/r - 
+           (5.*^-7*Sin[phi]*((-1.*^-6*(((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]*
+                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Cos[phi]*(2.*^-6*
+                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r)/2))*(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (Cos[theta] + Cos[3*theta]) + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                  (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-6*Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
+                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
+                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
+                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
+                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
+                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
+                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
+                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                         theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
+                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
+                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
+                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                        Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2)/4 - 
+                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
+                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
+                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
+                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2))/r + 
+           (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
+                Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
+                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
+                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
+                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
+                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
+                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
+                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                    Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
+                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                  Sin[theta]^2 + 1.0799999999999999*^-16*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                      Sin[2*phi]*Sin[4*theta])))^2))/r) + 
+         1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
+           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
+          ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 
+                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+             3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
+                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+              Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
+              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
+                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
+           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) + 
+           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) + 
+           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
+                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+              (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
+              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+             (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+           2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
+                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
+                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r))/2)*Sin[theta]^2)*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*(Cos[theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
+            Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+             ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
+              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))))*
+            ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta])))) - 
+           5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
+                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                       (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*(
+                -1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
+                2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
+                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
+                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
+                5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*((21*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
+                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
+                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
+                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
+                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                        (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]^
+                2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
+              (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*(
+                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
+                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
+                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
+                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
+                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
+                        theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
+                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                       2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
+                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                       Cos[theta]*Sin[theta]))/4 - 4.*^-6*
+                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                       4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
+                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
+                    Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
+                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
+                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
+                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
+                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
+                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
+              (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2) + 
+           5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
+                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
+                2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+             (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[
+                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
+             (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
+                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
+                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 
+                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
+                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
+                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
+                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
+                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
+                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
+                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
+             (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
+                2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                   Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) + 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Sin[phi]^2*Sin[theta]^2*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - 
+             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                Csc[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
+                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
+               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
+               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
+                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                    Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                 Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                    Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
+                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
+                   Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                    2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
+                  Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
+                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
+                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
+                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
+                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
+                 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))^2)) + 
+         r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
+                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+          (-1/2*(1.*^-6*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
+                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
+                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
+                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/2) - 1.*^-6*
+                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
+                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
+                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
+                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta]))) - 1.*^-6*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
+                1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
+                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
+                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
+                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
+                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
+                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta])) + (-2 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
+                   Sin[phi]^2 - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 
+                  7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                   Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*(6*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[2*theta]^2) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
+                 Sin[theta]^2*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[2*theta]*Cot[theta] + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
+                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Cos[theta]*Sin[theta] - 0.000012*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
+                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
+                6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) - 6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) + 
+                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
+                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
+                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
+                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
+                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
+                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
+                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
+                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
+                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
+                         (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
+                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                     Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]*(-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
+                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
+                   Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) + 
+           (5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
+                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
+                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
+                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
+                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
+                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
+                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
+                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
+             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]*
+             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
+              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
+                (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
+                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
+                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                   Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 
+              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
+                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*
+                   Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
+                -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
+                 Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
+                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
+              8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + 
+                  Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2*
+                   Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*
+                   (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2*
+                     Sin[4*theta])))))/(r*(-Csc[theta]^3 + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
+                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
+                 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
+                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 
+           (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
+                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
+             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Sin[2*theta]))*
+             ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta])))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*
+                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^
+                2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
+                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - (5.*^-13*Sin[phi]^2*
+             Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                    E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
+                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                  Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                   E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
+                 Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(
+                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
+                  Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*
+                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
+                   Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^5)*(2*Sin[theta]*(-1 + 2.5*^-7*
+                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
+             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
+                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
+                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
+                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
+              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
+                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
+                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
+                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
+                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
+               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
+                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
+                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
+              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
+              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
+                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
+                  Sin[phi]^2*Sin[4*theta])))) - 
+           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
+                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
+                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
+                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
+                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
+                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
+                  1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
+                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
+                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
+                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
+                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
+                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
+                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
+                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
+                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
+                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
+                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
+                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
+                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
+                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
+                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
+                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
+                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta])))))/
+            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
+              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
+                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
+           (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6*
+                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
+                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
+              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
+                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
+                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
+                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
+                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
+                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
+                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
+                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
+                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
+                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
+                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
+                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
+              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 + 5.3999999999999996*^-17*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
+                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
+                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
+                     Sin[2*phi]*Sin[4*theta]))))*
+             (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[
+                phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
+                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
+              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]*
+                 Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 
+                2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
+                  Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
+                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
+                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
+                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
+                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
+                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
+                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
+                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
+                       E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
+                    Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
+                      Sin[phi]*Sin[4*theta]))/4)) + 
+              2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                  r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
+                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
+                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
+                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
+                 Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
+                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
+                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                     Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
+                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
+                     5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
+                     5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
+                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
+                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
+                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
+                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
+                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
+                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
+                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
+                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
+                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
+                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
+                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                        Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
+              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
+                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
+               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
+                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
+                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
+                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
+                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
+                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
+              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
+                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
+                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
+                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
+              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
+                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
+                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
+                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
+                 2))) + (2.5*^-7*(-2.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
+                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*Cos[
+                2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]*
+                 Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
+                0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
+                 Sin[2*theta]^2)*(-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(2 - 
+                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
+                 Sin[theta]^2 - 1.0799999999999999*^-16*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
+                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
+                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
+                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
+                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
+                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
+                      4*theta]))) + 2.5*^-13*(-4*Cos[phi]*Cos[2*theta] - 
+                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
+                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
+                   2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
+                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
+                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
+                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
+                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
+                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
+                -0.000432*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
+                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
+                 Sin[phi]^2*Sin[theta]^2 + 72*(0.1875/(E^(4.*r^2)*r^4) + 
+                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[2*theta]) + 
+                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
+                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) - 2*Cos[phi]^2*
+                   Sin[4*theta]) - 4*(((1.3125/(E^(4.*r^2)*r^4) + 
+                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
+                   4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
+                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                   (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
+                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
+                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
+                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
+                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
+                      2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
+                    4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
+                       Sin[4*theta]))) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
+                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
+                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
+                     (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
+                     Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
+                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
+                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
+                    (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
+                       2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*
+                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
+                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
+                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
+                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
+                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                      (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
+                       17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
+                       5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
+                       9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))))/
+            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
+                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
+               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
+               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
+                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
+                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
+                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
+                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
+                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
+                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
+                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
+                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
+                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
+                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
+                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
+                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
+                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
+                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
+                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
+                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
+                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
+                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
+                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
+                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
+                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
+                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
+                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
+                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
+                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
+                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
+                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
+                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
+                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
+                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
+                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
+                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
+                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
+                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
+                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
+                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
+                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
+                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
+                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
+                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
+                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
+                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
+                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
+                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
+                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
+                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
+                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
+                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
+              2)))/(Sqrt[2]*r))/2)/(Sqrt[2]*r))/2
diff --git a/psi4_value.wl b/psi4_value.wl
new file mode 100644
index 0000000..5d44e4b
--- /dev/null
+++ b/psi4_value.wl
@@ -0,0 +1,22 @@
+(*
+  Usage: Please set the fowllowing variables from outside as
+  command line arguments, like this:
+    wolframscript -file psi4_value.wl psi4_file x y z
+  for example:
+    wolframscript -file psi4_value.wl psi4.txt 1.2 2.1 3.4
+*)
+
+(* Parsing arguments *)
+argv = Rest@$ScriptCommandLine;
+(* Print[argv] *)
+Check[
+  psi4file = argv[[1]];
+	{x, y, z} = ToExpression[argv[[2]]];
+,
+  Print["Error: Check your command line arguments!"];Abort[]
+];
+
+psi4[r_, theta_, phi_] = ToExpression[Import[psi4file, "Text"] ]/.{t->0};
+
+result = psi4@@ToSphericalCoordinates[{x,y,z}]
+Print[Re@result, " ", Im@result]
diff --git a/test_Inv_modes.py b/test_Inv_modes.py
new file mode 100644
index 0000000..8e50b36
--- /dev/null
+++ b/test_Inv_modes.py
@@ -0,0 +1,304 @@
+import os
+import subprocess
+import csv
+import itertools
+import numpy as np
+
+from datetime import datetime
+
+# from wolframclient.evaluation import WolframLanguageSession
+# from wolframclient.language import wl, wlexpr
+
+nmesh_exe = "/home/wyj/Code/NR/nmesh/exe/nmesh"
+
+def timestr():
+  now = datetime.now()
+  return now.strftime('%y-%m-%d %H:%M:%S')
+
+class nmesh_tester:
+  def __init__(self, a=1e-8, m=0, N=1, l=1, type="out", ntheta=16, nphi=32,
+               interp="yes", n=20, luni=0, rlist="", rmodes=[], imodes=[],
+               rpsi4s=[], ipsi4s=[], mode_file="mode.csv", psi4_file="psi4.csv",
+               l2_file="l2.csv",
+               outlist="0.05 0.08 0.1 -0.4 0.42 0.33 1.4 0.2 0.35"):
+    self.a = a
+    self.m = m
+    self.N = N
+    self.l = l
+    self.type = type
+    self.ntheta = ntheta
+    self.nphi = nphi
+    self.interp = interp
+    self.n = n
+    self.luni = luni
+    self.rlist = rlist
+    self.rarray = list(map(float, rlist.split()))
+    self.outlist = outlist
+    self.outarray = list(map(float, outlist.split()))
+    self.rmodes = rmodes
+    self.imodes = imodes
+    self.rpsi4s = rpsi4s
+    self.ipsi4s = ipsi4s
+    self.mode_file = mode_file
+    self.psi4_file = psi4_file
+    self.l2_file = l2_file
+    if max(max(self.rarray),max(self.outarray)) < 2.0:
+      self.mesh_type = "CubedSpheres"
+    else:
+      self.mesh_type = "Shell"
+    print(f"[{timestr()}]Start a now tester.")
+  def run_test(self):
+    parfile = self.write_parfile()
+    basename = parfile[:-4]
+    print(f"[{timestr()}]Written to parfile {parfile}")
+    print(f"[{timestr()}]Starting running nmesh")
+    if os.path.exists(basename):
+      print(f"[{timestr()}]\tHave already runed {parfile}, skipping.")
+    else:
+      print(f"[{timestr()}]running: {nmesh_exe} {parfile}")
+      self.run_nmesh(parfile)
+      print(f"[{timestr()}]Finished running nmesh")
+    self.collect_result(basename)
+    print(f"[{timestr()}]Finished result analysis.")
+  def write_parfile(self):
+    filename = f"parfiles/Inv-a{self.a}-m{self.m}-N{self.N}-l{self.l}-{self.type}-"+\
+         f"nt{self.ntheta}-np{self.nphi}-{self.interp}-"+\
+               f"n{self.n}-{self.luni}-{self.rlist}.par"
+    preparfile =\
+        '''###################################################################
+# modules we use
+
+physics = Invariants ADM Teukolsky
+
+###################################################################
+# parameters for ADM
+
+ADM_Set1stDerivsInADMconstraints = yes
+
+'''
+    if self.mesh_type == "Shell":
+      mesh_parfile =\
+        f'''###################################################################
+# initial mesh
+
+amr_mesh_type = Shell
+amr_Shell_rin = {np.floor(min(self.rarray+self.outarray))}
+amr_Shell_rout = {np.ceil(max(self.rarray+self.outarray))}
+amr_Shell_r1 = 0
+amr_n0 = {self.n}
+amr_n1 = {self.n}
+amr_n2 = {self.n}
+amr_luni = {self.luni}
+
+'''
+    else:
+      mesh_parfile =\
+        f'''###################################################################
+# initial mesh
+
+amr_mesh_type = 7 CubedSpheres
+amr_n0 = {self.n}
+amr_n1 = {self.n}
+amr_n2 = {self.n}
+amr_luni = {self.luni}
+
+'''
+    teukolsky_parfile =\
+         f'''###################################################################
+# parameters for Teukolsky
+
+Teukolsky_waves_amplitude = {self.a}
+Teukolsky_wave_width = {self.l}
+Teukolsky_wave_mm = {self.m}
+Teukolsky_wave_N = {self.N}
+Teukolsky_wave_type = {self.type}
+
+'''
+    invariants_parfile =\
+         f'''###################################################################
+# parameters for Invariants
+
+Invariants_ntheta = {self.ntheta}
+Invariants_nphi = {self.nphi}
+Invariants_modes_lmin = 1
+Invariants_modes_lmax = 8
+Invariants_modes_test = no
+Invariants_compute_modes = yes
+Invariants_compute_modes_just_interp = {self.interp}
+Invariants_modes_r = {self.rlist}
+Invariants_psi4_test_0doutput = yes
+Invariants_psi4_test_0dout_coordinates = {self.outlist}
+
+'''
+    output_parfile =\
+         '''###################################################################
+# output
+
+logfile_creation = yes
+0douttime = 0.1
+0doutput = Invariants_rpsi4 Invariants_ipsi4
+
+1douttime = 0.1
+1doutput = Invariants_rpsi4 Invariants_ipsi4
+'''
+    with open(filename, "w") as f:
+      f.write(preparfile)
+      f.write(mesh_parfile)
+      f.write(teukolsky_parfile)
+      f.write(invariants_parfile)
+      f.write(output_parfile)
+    return filename
+  def run_nmesh(self, parfile):
+    subprocess.run([nmesh_exe, parfile])
+  def collect_result(self, basename):
+    print(f"[{timestr()}]Starting collect and analysis result...")
+    if not os.path.exists(self.mode_file):
+      with open(self.mode_file, "w") as f:
+        csv_writer = csv.writer(f)
+        csv_writer.writerow(["a", "m", "N", "L", "type", "nt", "np", "interp",
+                             "mesh", "n", "luni", "r", "l", "m", "re_mode",
+                                "im_mode", "re_mode_err", "im_mode_err",
+                                  "re_mode_rel_error", "im_mode_rel_err"])
+    if not os.path.exists(self.psi4_file):
+      with open(self.psi4_file, "w") as f:
+        csv_writer = csv.writer(f)
+        csv_writer.writerow(["a", "m", "N", "L", "type", "mesh", "n", "luni",
+                             "x", "y", "z", "rpsi4", "ipsi4", "rpsi4_err",
+                             "ipsi4_err", "rpsi4_rel_err", "ipsi4_rel_err"])
+    if not os.path.exists(self.l2_file):
+      with open(self.l2_file, "w") as f:
+        csv_writer = csv.writer(f)
+        csv_writer.writerow(["a", "m", "N", "L", "type", "nt", "np", "interp",
+                             "mesh", "n", "luni", "r", "l2-norm",
+                             "l2-distance", "l2-rel_err"])
+
+    print(f"[{timestr()}]\tAnalysing modes...")
+    with open(self.mode_file, "a") as mode_fp:
+      csv_writer = csv.writer(mode_fp)
+      ind = 0
+      for r in self.rarray:
+        l2norm = np.dot(self.rmodes, self.rmodes)+\
+          np.dot(self.imodes, self.imodes)
+        l2distance = 0
+        for l in range(1,9):
+          for m in range(-l, l+1):
+            output_line = [self.a, self.m, self.N, self.l, self.type,\
+                           self.ntheta, self.nphi, self.interp, self.mesh_type,\
+                                          self.n, self.luni, r, l, m]
+            mode_file = f'{basename}/modes/psi4_r{r}_l{l}_m{m}.t'
+            with open(mode_file, 'r') as f:
+                lines = f.readlines()
+                output_line.extend(map(float,lines[-1].split()[1:]))
+            rmode = self.rmodes[ind]
+            imode = self.imodes[ind]
+            rmode_error = output_line[-2] - rmode
+            imode_error = output_line[-1] - imode
+            rmode_rel_error = 'nan' if rmode==0 else rmode_error/rmode
+            imode_rel_error = 'nan' if imode==0 else imode_error/imode
+            l2distance += rmode_error**2 + imode_error**2
+            output_line.extend([rmode_error, imode_error,
+                                rmode_rel_error, imode_rel_error])
+            ind += 1
+            csv_writer.writerow(output_line)
+        with open(self.l2_file, "a") as l2_fp:
+          l2_writer = csv.writer(l2_fp)
+          l2_writer.writerow([self.a, self.m, self.N, self.l, self.type,
+                              self.ntheta, self.nphi, self.interp,
+                              self.mesh_type, self.n, self.luni, r, l2norm,
+                              l2distance, l2distance/l2norm])
+
+    print(f"[{timestr()}]\tAnalysing 0doutput...")
+    with open(self.psi4_file, "a") as psi4_fp:
+      csv_writer = csv.writer(psi4_fp)
+      n_points = len(self.outarray)//3
+      for i in range(n_points):
+        output_line = [self.a, self.m, self.N, self.l, self.type,\
+                        self.mesh_type, self.n, self.luni]
+        psi4_files = [f"{basename}/Invariants_rpsi4_pt{i}.t",
+                      f"{basename}/Invariants_ipsi4_pt{i}.t"]
+        with open(psi4_files[0]) as f:
+          line = f.readline()
+          line_list = line.split()
+          Nrpsi4 = float(line_list[1])
+          output_line.extend(line_list[-3:])
+          output_line.append(Nrpsi4)
+        with open(psi4_files[1]) as f:
+          line = f.readline()
+          Nipsi4 = float(line.split()[1])
+        output_line.append(Nipsi4)
+        rpsi4 = self.rpsi4s[i]
+        ipsi4 = self.ipsi4s[i]
+        rpsi4_error = Nrpsi4 - rpsi4
+        ipsi4_error = Nipsi4 - ipsi4
+        rpsi4_rel_error = 'nan' if rpsi4==0 else rpsi4_error/rpsi4
+        ipsi4_rel_error = 'nan' if ipsi4==0 else ipsi4_error/ipsi4
+        output_line.extend([rpsi4_error, ipsi4_error,
+                            rpsi4_rel_error, ipsi4_rel_error])
+        csv_writer.writerow(output_line)
+
+rlist = [0.4, 1.3, 1.8]
+pointlist = [[0.05, 0.08, 0.1], [-0.4, 0.42, 0.33], [1.4, 0.2, 0.35]]#, [0.01, 0.02, 0.48]]
+
+rlist_str = ' '.join(str(r) for r in rlist)
+outlist = ' '.join(str(coord) for point in pointlist for coord in point)
+
+mode_file = "result_modes.csv"
+psi4_file = "result_psi4.csv"
+l2_file = "result_l2.csv"
+
+for a in [1e-6, 1e-8, 1e-10, 1e-12]:
+  for m in [0, 1, -1, 2, -2]:
+    for N in [1, 2, 3, 4]:
+      for l in [0.5, 1, 2]:
+        for type in ["in", "out"]:
+          psi4_analytical = f"psi4_analytical/psi4-m{m}-a{a}-L{l}-N{N}.txt"
+          if not os.path.exists(psi4_analytical):
+            print(f"[{timestr()}]Staring calculate psi4 analytically...")
+            subprocess.run(["wolframscript", "-file", "Teuk_psi4.wl", f"{m}",
+                            f"{a}", f"{l}", f"{N}", f"{type}",
+                            f"{psi4_analytical}"])
+            print(f"[{timestr()}]Finished calculate psi4 and saved in {psi4_analytical}.")
+          rmodes = []
+          imodes = []
+          for r in rlist:
+            rmodes_file = f"modes_wolfram/rmode_a{a}-m{m}-N{N}-l{l}-r{r}.txt"
+            imodes_file = f"modes_wolfram/imode_a{a}-m{m}-N{N}-l{l}-r{r}.txt"
+            if (not os.path.exists(rmodes_file)) or \
+              (not os.path.exists(imodes_file)):
+              print(f"[{timestr()}]Starting calculate modes at r={r}...")
+              subprocess.run(["wolframscript", "-file", "calculate_modes.wl",
+                              f"{psi4_analytical}", f"{r}",
+                              f"{rmodes_file}", f"{imodes_file}"])
+              print(f"[{timestr()}]Finished calculate modes and saved in \
+                    {rmodes_file} and {imodes_file}.")
+            with open(rmodes_file) as f:
+              rmodes.extend([float(line.strip()) for line in f.readlines()])
+            with open(imodes_file) as f:
+              imodes.extend([float(line.strip()) for line in f.readlines()])
+          rpsi4s = []
+          ipsi4s = []
+          for point in pointlist:
+            print(f"[{timestr()}]Starting calculate psi4 at {point}")
+            result = subprocess.run(["wolframscript", "-file",
+                                      "psi4_value.wl", f"{psi4_analytical}",
+                                      "{"+
+                                      f"{point[0]}, {point[1]}, {point[2]}"+
+                                        "}"],
+                                      capture_output=True, text=True)
+            try:
+              output = result.stdout.strip().split()
+              rpsi4s.append(float(output[0].replace("*^", "e")))
+              ipsi4s.append(float(output[1].replace("*^", "e")))
+            except:
+              print(result, output)
+              raise SystemExit("wrong in wolframscript.")
+          for ntheta in [16, 32, 64]:
+            nphi = 2*ntheta
+            for interp in ["yes"]:
+              for n in [10, 20, 40]:
+                for luni in [0, 1, 2]:
+                  tester = nmesh_tester(a, m, N, l, type, ntheta, nphi,
+                                        interp, n, luni, rlist_str, rmodes,
+                                        imodes, rpsi4s, ipsi4s, mode_file,
+                                        psi4_file, l2_file, outlist)
+                  tester.run_test()